Como se conecta Visual Basic atraves de DAO hacia Access 2000

[Gennys]

Hola, viendo el codigo que utilizas, porque no intentas abrirla de este modo, Todo este codigo debes de colocarlo en el modulo general y abrir la BD cuando abras el formulario principal. Suerte y me comentas...

Public rs7 As Recordset
Public rst As Recordset
Public g_sBdlocal As Database
Public ws As Workspace
Public g_sQuery As String

Public Function Abrir_Base()
Dim ruta As String

ruta = App.Path & "\prueba1.mdb"
Set ws = DBEngine.Workspaces(0)
Set g_sBdlocal = ws.OpenDatabase(ruta)
End Function