Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
'Microsoft VFP:
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Visual Foxpro Driver (*.dbf)};SourceType=DBF;DBQ=d:\dbfs\"
adoRecordset.Open "SELECT * FROM Labels.dbf", adoConnection
Debug.Print adoRecordset.GetString
adoRecordset.Close
adoConnection.Close
'dBase:
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft dBase Driver (*.dbf)};DBQ=d:\dbfs\"
adoRecordset.Open "SELECT * FROM animals.dbf", adoConnection
Debug.Print adoRecordset.GetString