Visual Basic - problemas con ocdigo

hola gracias por leer mi nota kisiera ke me ayudaras con un error ke me marca en el codigo y el error 13 ke dice ke no coinciden los datos el codigo es el siguiente
gracias por tu atencion

´Option Explicit
Dim cnnconexion As ADODB.Connection
Dim cmdcomando As Command
Dim rstprestamo As ADODB.Recordset
Private dbBase As Database


Private Sub Form_Load()
lblhora.Font = \"tahoma\"
lblhora.FontSize = 14
lblhora.Caption = Date
Set dbBase = OpenDatabase(\"C:\\Documents and Settings\\Administrador\\Escritorio\\PROYECTO DE VIDEOTECA\\VIDEOTECA\\prestamo.mdb\")
Set rstprestamo = dbBase.OpenRecordset(\"prestamo\", dbOpenDynaset)

End Sub

y en esta ultima linea es en donde me marca el error

Estas revolviedo Ado con Dao.
con ADO es el siguiente ejemplo

Option Explicit
'Referencia el la libreria ADO 2.7
Dim cnnconexion As ADODB.Connection
Dim cmdcomando As Command
Dim rstprestamo As ADODB.Recordset

Private Sub Form_Load()
Set cnnconexion = New ADODB.Connection
cnnconexion.CursorLocation = adUseClient
cnnconexion.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\Biblio.mdb;"
cnnconexion.Open
Set rstprestamo = New ADODB.Recordset
rstprestamo.Open "Select * From Authors", cnnconexion, adOpenStatic, adLockOptimistic, adCmdText

End Sub