Access - No consigo conectar

Hola a todos-s... no cosigo conectar desde vba de access.. a ver si me podeis ayudar.. gracias
Sub probando()
Dim sPathBase As String
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

sPathBase = "C:\medicionrevit.mdb"

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sPathBase & ";"
cnn.Open



rst.Open "SELECT * FROM Authors", cnn, adOpenDynamic, adLockOptimistic
End Sub

me da el error en cnn.open.

Hola!

Prueba esto:

...
Sub probando()
Dim sPathBase As String
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

sPathBase = "C:\medicionrevit.mdb"

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0.; Data Source=" & sPathBase & ";"

rst.Open "SELECT * FROM Authors", cnn, adOpenDynamic, adLockOptimistic
End Sub
...

Un saludo,

Neckkito (... http://neckkito.eu5.org ...)