function openDBFconn(path)
dim conn as connection
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & path & ";" & _
"extended properties=""dbase iv;"";"
set openDBFconn = conn
end function
private sub command1_click()
'abir recordset da tabela mala
dim dbconn as connection
set dbconn = openDBFconn("c:")
dim rsmala as recordset
set rsmala = dbconn.execute("select * from mala")
end sub
use o código acima para selecionar os dados do dbf.
para inserir no datagrid procure por uma dica chamada recordset desconectado.
misture com o q eu coloquei acima para obter o q vc quer...
t+
Renato
