select para o flex..

rs -declarei como record set

no botao  faça o select e chame oenche grid(uma funçao que criei)

strsql-é a minha string de coneção com o select( strSQL = "SELECT * from produtos ORDER BY produto;")

 

Public Sub Enche_Grid8()
  
    Set rs = cn.Execute(strSQL)
    If Not rs.EOF Then
        With MSHFlexGrid2
            .ColWidth(0) = 1000
            .ColWidth(1) = 2000
            .ColWidth(2) = 2000
            .ColWidth(3) = 1000
            .ColWidth(4) = 1000
            .Rows = 1
            .TextArray(0) = "CÓDIGO"
            .TextArray(1) = "PRODUTO"
            .TextArray(2) = "DESCRIÇÃO"
            .TextArray(3) = "PREÇO"
            .TextArray(4) = "ESTOQUE"
        End With
        Do While Not rs.EOF
            MSHFlexGrid2.AddItem _
            rs![ID] & Chr(9) & _
            rs![Produto] & Chr(9) & _
            rs![descricao] & Chr(9) & _
            rs![Preco] & Chr(9) & _
            rs![qtd]
            rs.MoveNext
        Loop
        MSHFlexGrid2.FixedRows = 1
    Else
       ' MsgBox "Registro não encontrado, verifique!!!", vbInformation, "Código"
        MSHFlexGrid2.Clear
    End If
    End Sub