leer una tabla .dbf de vfoxpro 6.0 con visual basic 6.0

[yanmarco]

Prueba con este codigo

cnVFP.CursorLocation = adUseClient
ruta = "D:\BASES\PRIN"
cnVFP.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=" & ruta & ";" & _
"Exclusive=no;"
'donde "ruta" es la ruta donde se encuentran los DBF's
'Para Leer los dfbs. a un Recordset
Set rsVFP = cnVFP.Execute ("select * from rn0001 where contrib = '0000000022'")
rsVFP.MoveFirst
Print rsVFP.Fields("nomb")

espero te sirva