'no módulo coloque o seguinte:
Type TabelaDAO
Database As Database
Recordset As DAO.Recordset
End Type
Public Function Abrir_DAO_DBF(Caminho As String, _
Nome_Arquivo As String, _
Tabela As TabelaDAO)
Dim mDatabase As Database
Dim mRecordset As DAO.Recordset
Set mDatabase = OpenDatabase(Caminho, False, False, "DBASE IV")
Set mRecordset = mDatabase.OpenRecordset(Nome_Arquivo, dbOpenTable)
Set Tabela.Database = mDatabase
Set Tabela.Recordset = mRecordset
End Function
Public Function Fechar_TabelaDAO(Tabela As TabelaDAO)
Tabela.Recordset.Close
Tabela.Database.Close
Set Tabela.Recordset = Nothing
Set Tabela.Database = Nothing
End Function
'No form coloque o seguinte:
' Acrescente um botão
Private Sub Command1_Click()
Dim TabelaDBF As TabelaDAO
' "C: este" = pasta/diretório onde encontra-se o arquivo DBF
' "TITULAR" = Nome do arquivo DBF, lembre-se não coloque a extensão ( .DBF)
Call Abrir_DAO_DBF("C:Teste", "TITULAR", TabelaDBF)
TabelaDBF.Recordset.MoveMin 'Pode usar normalmente....
Call Fechar_TabelaDAO(TabelaDBF)
End Sub
'Falow!
