Como se conecta Visual Basic atraves de DAO hacia Access 2000

[Escorpion_Negro]

Al que me pueda ayudar muchas gracias donde puedo bajar Microsoft Ado para poder trabajar con VB 6.0 y Access 2000 por fa una ayudita

Set AreaTrabajo = DBEngine.Workspaces(0)
Set BaseDatos = AreaTrabajo.OpenDatabase("C:\Inventario\Inventario 2.mdb")
nSQL = "select * from tb_Inventario where num_joya =" & "'" & txtjoya.Text & "'"
Set rsInventario = BaseDatos.OpenRecordset(nSQL)

[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