Visual Basic - Conexión a BD con ADO

Saludos que tal,

Me encuentro pasando de DAO a ADO y he tenido algunos problemas para conectar el Form con codigo ADO a una BD Access.
Por eso pregunto:
Si tengo una BD llamada: BaseDatos.mdb
Y una Tabla llamada: Agenda
Base de Datos: Access
¿Cómo haría el código de conexión para la misma? (sin control ADO)

Muchas gracias por la ayuda que me puedas facilitar.

Para conectarte utiliza el siguiente codigo:
Dim Rec As Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Sub Conectar()
Dim Ruta As String
Dim NomBase As String
NomBase = "BaseDatos.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
End Sub
Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
Private Sub Form_Load()
Conectar
sql = "Select * From Agenda"
Registro
Rec.Open sql, cnbase
Label1=Rec.RecordCount 'Total de Registros
End Sub

Caramba, muchisimas gracias amigo, he usado un pequeño libro de VB orientado a Bases de Datos y la codificación escrita en él, no me daba buenos resultados.

El codigo que me has colocado me ha servido de mucho, ya con la conexión podre hacer las operaciones basicas de la BD.

Muchas gracias miguel