No coinciden los tipos :S

[fesero]

Ese es todo el codigo para crear y abrir la conexion?
Usando ADO yo lo logro asi, con una base de datos en Access 2000

Set cnn = New ADODB.Connection
sFichero = App.Path & "\datos\tubase.mdb"
If cnn.State <> 1 Then
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & sFichero & "';"
.Open
.CursorLocation = adUseClient
End With
End If



y a la hora de usar alguna tabla uso lo siguiente

Set rstMos = New ADODB.Recordset
sBus = "SELECT * FROM Estados ORDER BY anio DESC, mes_nro DESC "
Set rstMos = cnn.Execute(sBus)


Espero que sea de ayuda.