SoloCodigo

Todavía no lo he probado, pero un compañero me dejo este codigo:

Dos cosillas antes:

Una, recordar referenciar a Microsoft ActiveX Data Objects 2.7 library

Y la otra es , por si acaso no podeis abrir las tablas de paradox por que os da problemas de que la tabla esta mal, etc, es instalar Borland Database Engine, que se puede descargar de softonic o terra
   
   Código:

   Private Sub Form_Load()

      Dim cnn As ADODB.Connection
      Dim SQL As String
      Dim mirs As ADODB.Recordset
      Set cnn = New ADODB.Connection

      cnn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\DIRECCION;Extended Properties=Paradox 5.X;")


           Set vRs = New ADODB.Recordset
           vRs.Open "select * from Clientes", cnn, adOpenForwardOnly, adLockReadOnly
           If Not vRs.EOF Then
              While Not vRs.EOF
                  Debug.Print vRs(1)
                  vRs.MoveNext
              Wend
           End If

   End Sub

- Prueba y nos cuentas

Siento responder tan tarde.

Miraré a ver si localizo a la persona que me lo pasó, pero posiblemente tengas razon y sea la versión de las tablas.

Espero que encuentres la solucion y si es posible la pongas en el foro. Suerte.