RE:conexión access 2000 con Visual basic 6.0
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset 'Tabla_Uno
Dim Rs1 As New ADODB.Recordset 'Tabla_Dos
'Declaro la conexion con la base de datos y con cada una de las tablas
'que necesito
Cn.Open "DSN=Nomb_Archivo.mdb"
Rs.CursorType = adOpenStatic
Rs.LockType = adLockBatchOptimistic
Rs.Open "SELECT * FROM Tabla_Uno", Cn, , adLockBatchOptimistic
Rs1.CursorType = adOpenStatic
Rs1.LockType = adLockBatchOptimistic
Rs1.Open "SELECT * FROM Tabla_Dos", Cn, , adLockBatchOptimistic
'en esta instancia podes elegir los diferentes metodos de apertura,estos
'que expongo te pueden servir.
'En la apertura se puede escrivir la sentencia SQL que a uno mas le convenga.
'de esa forma ya tendrias conexion con la base de datos desde VB6.0 con
'acces 2000.
IF Rs.EOF=false THEN
Rs.movefirst
While (RsO.EOF = False) And (okl = False) 'El booleano lo utilice para salir
'instrucciones de accion para busqueda
Rs.moveNext
Wend
END IF
'En este metodo recorres una tabla de acces, hasta encontrar el
'elemento desceado.
Rs1.AddNew
Rs.Fields(0).Value = 12 'ID P K de la Tupla 'Env. valor a celda
'determinada posicion.
Rs!Nomb_Empleado=Text1.Text 'Env. Valor a celda por nombre.
Rs![Apellido de empleado ]= Text2.text 'Env. valor a celda por nombre,
'si tuviece espacios.
Rs1.UpdateBatch
'Este ultimo metodo es para agregar valores a celdas de la Tupla.
'Espero que te sirva la info, si necesitas te puedo enviar algun fuente.