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=""Paradox 7.X;"";"
  Set OpenDBFConn = Conn
  
End Function
Private Sub Command1_Click()

'Abir Conexão para ficheiros DBF em C:\[Nome do Directorio]
Dim DBConn As Connection
Set DBConn = OpenDBFConn(App.Path)

'Criar um novo ficheiro DBF chamado Persons.DBF
DBConn.Execute "Create Table Persons (Name char(50), City char(50), Phone char(20), Zip decimal(5))"



End Sub

Private Sub Command2_Click()

'Inserir alguns registos na Tabela Persons
Dim DBConn As Connection
Set DBConn = OpenDBFConn(App.Path)
DBConn.Execute "Insert into Persons Values('Alex P. Nor', 'Mexico','458962146','14589')"

End Sub

Private Sub Command3_Click()

'Abir  recordset da Tabela  Persons
Dim DBConn As Connection
Set DBConn = OpenDBFConn(App.Path)
Dim Persons As Recordset
Set Persons = DBConn.Execute("Select * from [Persons]")


End Sub