Visual Basic - cómo hago una Conexión con ado

Tengo Access 2000 y VB 6.0
Tengo una base de datos en C:\Yolanda\BaseDatos\Yolanda.mdb
La tabla Categorias, con los campos: Contador,Categoria, Tarifa, Producto.
Estoy haciendo un Formulario, para visualizar éstos campos y moverme
por ellos, utilizando un recorset, pero no me sale. Me podeis dar todos los pasos. Gracias

Primero haces click en el menú Proyectos...Referencias y agregas Microsoft Acive X Data Object Library 2.1

'Declaras variable
Public Consulta As String
Dim conex As ADODB.Connection
Set conex = New ADODB.Connection

'Cursores se crean por defecto en el cliente
conex.CursorLocation = adUseClient

'Abrir conexion
conex.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Yolanda\BaseDatos\Yolanda.mdb
;Persist Security Info=False"

Set Consulta = New ADODB.Recordset

'Consulta de la tabla con todos los campos
Consulta.Open "Select * from Categorias", conex, adOpenDynamic, adLockOptimistic

'Consulta de la tabla con campos determinados
Consulta.Open "Select Contador,Categoria,Tarifa,Producto from Categorias", conex, adOpenDynamic, adLockOptimistic

Espero te sirva, mucha suerte y saludos.