Visual Basic - dbf y ntx con dos-clipper

tengo un cliente que me pidio un sistemita de fletes, y se lo quiero hacer en visual basic y access
solo que ese sistemita lo necesito ligar a las validadacion de las facturas e inventarios
con las facturas para saber cuantos galones se emitieron por zona (ciudad) y que choeferes eran
y con los inventarios pues alli estan la lista de precios de los diferentes codigos de productos.

solo que el inventario y la facturacion es un sistema que les hize en dos-clipper hace varios años
los cuales funcionan bien.

y por mientras convierto todos estos sistemas a windows, queria saber como abro el archiovo

INM030.DBF (MAESTRO DE INVENTARIOS) -dos clipper
INM030.NTX (INDICE DEL INVENTARIO) -dos clipper

desde mi programa de visual basic, para hacer uso de esos maestros que ya estan
y recuperar datos de alli.

no se si puedo abrir el archivo de facturas que se llama facturas.dbf y el indice facturas.ntx

hacer un select en visual y decirle ,

open vendedor,codproducto,cantidad,zona from facturas.dbf where vendedor=txtvendedor and fecha=txtfecha
orden by vendedor,codproducto

y hago los nuevos calculos y demas en visual.

tienen algun codigo de muestra de como hacer esto.

1)Define la coneccion en el modulo
Dim cnDBF as ADODB.Conection

2)Llama a la rutina de coneccion
Public Sub Connection_DataSourceDBF() As Boolean
Dim xCnn as String
Set cnDBF = New ADODB.Connection
xCnn = "Provider=MSDASQL.1;Persist Security Info=False;" & _
"Extended Properties=Driver={Microsoft Visual FoxPro Driver};" & _
"UID=;SourceDB=" & App.Path & "\;" & _
"SourceType=DBF;Exclusive=No;" & _
"BackgroundFetch=Yes;" & _
"Collate=Machine; Null=Yes; Deleted=Yes;"

With cnDBF
.ConnectionString = xCnn
.Open
End With
End Function

3)Luego puedes hacer el rs de la factura asi:
Dim rs as ADODB:Recordset
Dim sql As String
sql = "SELECT * FROM FACTURA "
sql = sql & "WHERE CAMPO = '" & txtcampo "'"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cnDBF
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockBatchOptimistic
.Open sql
End With

Saludos desde Lima