Option Explicit
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Form_Load()
 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Arquivos de programas     otal     otal.fat;Jet OLEDB:Database Password=total31068112"
 rst.CursorLocation = adUseServer
 'rst.Open "SELECT (ITEMSAI.ITVALUN)as aux FROM (ITEMSAI INNER JOIN PRODUTO ON ITEMSAI.PRODUTO=PRODUTO.PRODUTO) INNER JOIN NOTASAI ON ITEMSAI.TRANS=NOTASAI.TRANS Where notasai.trans = '01' And notasai.Data >= #3/5/2005# And notasai.Data <= #3/5/2005# And produto.produto = '4085105'", cnn, adOpenKeyset, adLockOptimistic
 rst.Open "SELECT * from produto", cnn, adOpenKeyset, adLockOptimistic
 MsgBox rst.RecordCount
 'Set DataGrid1.DataSource = rst
End Sub

esta eu peguei aqui no form, não lembro que passou por isso não coloquei os creditos

 

'Aqui faz tudo. Gera uma string dos campos separados por tab e enter e coloca de uma vez só no grid.
MSFlexGrid1.Clip = RST.GetString(adClipString, -1, Chr(9), Chr(13), vbNullString)