Dim cnt As Connection, rst As Recordset
Set cnt=New Connection
Si es una DBC
cnt.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Visual FoxPro Database;UID=;SourceDB=C:\Program Files\Microsoft Visual Studio\MSDN98\99JAN\1033\SAMPLES\VFP98\Tastrade\Data\TASTRADE.DBC;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
Si son DBF:
Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=Visual FoxPro Tables;UID=;SourceDB=d:\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
Después podes usar:
Set rst=cnt.Execute("SELECT * FROM MiTabla")