El metodo mas usado por un servidor (o sea, yo) es mediante en uso de la librerias de ADODB 2.0 o mayor...
Agregas la referencia a tu proyecto y en el codigo... mas o menos así
Código:
'Ejemplo de consulta a BD en FoxPro
Dim cn as New ADODB.Connection
Dim rs as ADODB.RecordSet
Cn.Open("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;")
Set rs = Cn.Execute("Select * from TablaDBF ...")
If Not rs.EOF Then
rs.MoveFirst
While not rs.eof
for i = 0 to rs.Fields.Count - 1
Debug.print rs.fields(i).Name & ": " & rs.Fields(i).Value
next
rs.MoveNext
Loop
Else
Debug.Print "NO HAY DATOS EN LA CONSULTA"
End If
rs.Close
Cn.Close
Set rs = Nothing
Set Cn = Nothing
Cualkier duda, me avisas.
De entrada, espero ke te sea util mi ayuda
Saludos