Visual Basic - Configuracion ADO

Hola

Hace ya un tiempo que no programo en visual basic, ahora me ha surtido la necesidad de volver a hacerlo, pero tengo un pequeño problema, cuando programava utilizaba B.D acces 97 y accedia a los datos mediante control data, creo recordar que eso no es posible hacerlo con las ultimas versiones de acces, por lo que necesito aprender a acceder a los datos con ado, pero no se como hacerlo.

¿Alguien me podria decir donce puedo encontrar algun manual o parecido donde aprender a acceder a los datos para leerlos y tambien añadir datos a una B.D access 2003 p.e con ado?

Gracias de antemano.

En esta página puedes bajar un manual completo de VB pero especificamente el capitulo 14 es el que te puede ayudar a conocer ADO!!!

http://www.jrubi.com/

Nota: En la parte izquierda de la pagina hay una leyenda "Curso" Nuevo...es donde se encuentra el manual.

Te pongo un ejemplo (pero con access 2000, me imagino que funciona con 2003)
En la parte general-declaraciones pones por ejemplo:
Public conexion As ADODB.Connection
Public WithEvents registros As ADODB.Recordset
Lo puedes hacer con private, yo es que llamo en concreto a este formulario desde otro formulario y necesito el public.
la base de datos se llama tienda.mdb y la tabla es productos.
En el Form_load:
ChDir App.Path 'la base de datos en el directorio del exe
Const basedatos As String = "tienda.mdb"
Set conexion = New ADODB.Connection
Set registros = New ADODB.Recordset
With conexion
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & basedatos & ";"
.Open
.CursorLocation = adUseClient
End With
registros.Open "SELECT * FROM productos", conexion, adOpenDynamic, adLockOptimistic
Para moverte es muy facil:
registros.Recordset.MoveNext 'siguiente
registros.Recordset.MoveLast 'ultimo
registros.Recordset.MovePrevious 'anterior
registros.Recordset.MoveFirst 'primero

Lógicamente tienes que asociar el valor de los campos a un textbox o label o algo parecido. Lo puedes hacer manualmente creo que es así:
Set Text1.DataSource = registros 'este es el recordset
Text1.DataField = "modelo" 'este es el campo
de esta forma al moverte se actuliza el valor del textbox.
También lo puedes hacer al leer cada campo y asignarle al valor text o caption del control el valor del campo.
Al salir del programa recuerda cerrarlo todo
Set registros = Nothing
conexion.Close
Espero haberte ayudado. Saludos