SoloCodigo

ok, ahí va el código q tengo en el módulo:
---------------------------
Public conexion As Connection
Public ruta As String
Public registro As Recordset


Sub conectar()
    ruta = App.Path & "\mis_libros.mdb"

    Set conexion = New Connection
   
    conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & ruta
    conexion.Open
    Set registro = New Recordset

    With registro
        .Source = "Select * from Amigos"
        .ActiveConnection = conexion
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .LockType = adLockOptimistic
        .Open
    End With
End Sub
---------------------------

En mi pc tengo el XP y en los demás donde he probado tienen el Windows 2000server. He probado en otros pc con XP y también va bien, así que supongo que es problema de mi sistema. No tengo mucha idea y me gustaría saber cómo solucionarlo, gracias.

También apuntar que cuando creo el fichero de vínculo de datos después de elegir el proveedor para Access me da error y me vuelve a decir lo de la clase no registrada.