SoloCodigo

hola a todos, a ver si me explico bien. tengo una aplicacion hecha con vb, que utiliza una conexion ODBC para llamar a una BBDD en Access 97. Lo que pasa es que quiero que se abra en Access 2000 y no se como hacerlo. Ya no tengo instalado en el PC Access 97 (no puedo volver a instalarlo) y con el Access 2000 me da error. No se si sera problema de Dll o en la llamada a la BBDD desde Visual, igual deberia retocar esto pero no se como.

aqui es donde tengo la conexion y me da el error.

Function existe(codigo As String) As Boolean
Dim registro_temp As Recordset
Set registro_temp = BD.OpenRecordset("select num_invt from userid.equipo " & _
          "where num_invt='" & codigo & "'", dbOpenDynamic)
         
existe = Not (registro_temp.EOF)
registro_temp.Close

End Function


Function abre_base(b_datos As String) As Boolean
On Error GoTo errror
Set wrkjet = CreateWorkspace("", "admin", "", dbUseODBC)
wrkjet.BeginTrans

   
Set BD = wrkjet.OpenDatabase(b_datos, _
        dbDriverNoPrompt, True, _
        "ODBC;DATABASE=" & b_datos & ";UID=;PWD=;DSN=" & b_datos)

abre_base = True
Exit Function
errror:
abre_base = False
 
End Function