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)