El problema esta en que los archivos dBase o .dbf tienen varios formatos o versiones no recuerdo bien el tema, en fin pero eran dBase II, dBASE III, dBASE IV.
Te dejo un ejemplo para conectarte a los .dbf y .dbc(Que bienen a ser varios .dbf en un solo archivo)
Solo instala el:
VFPOLEDBSetup.msi
Código:
Dim cn As Connection
Dim rs As Recordset
Dim rs2 As Recordset
Private Sub Form_Load()
DataGrid1.MarqueeStyle = 4
DataGrid2.MarqueeStyle = 4
Set cn = New Connection
'Conexion a .DBF Foxpro
cn.ConnectionString = "Provider=vfpoledb;Data Source=" & App.Path & "/DB;Collating Sequence=general;"
cn.CursorLocation = adUseClient
cn.Open
Set rs = New Recordset
rs.Open "select * from DbaseIII", cn, adOpenStatic
Set DataGrid1.DataSource = rs
End Sub
Private Sub Command1_Click()
cn.Close
'Conexion a .DBC Foxpro
cn.ConnectionString = "Provider=vfpoledb;Data Source=" & App.Path & "/DB/Northwind/northwind.dbc;Collating Sequence=machine;"
cn.Open
Set rs2 = New Recordset
rs2.Open "select * from categories", cn, adOpenStatic
Set DataGrid2.DataSource = rs2
End Sub
Descarga aqui el ejemplo completo
http://www.megaupload.com/?d=8JW21YHD