VB: Problema con OpenRecordSet

[Zeratul]

La sentencia sql esta bien si los tipos de datos de las variables y de la base de datos son iguales. A mi me funciona el codigo de abajo (lo he probado) pero he tenido que pasar la bd de access2000 a access97. Ya te dije en otro mensaje que DAO 3.5 no funciona con microsoft jet 4.0 (access2000) De todos modos prueba con microsoft DAO 3.6, NRLABS dijo que si funcionaba. Es mejor pasarse a ADO que no usa jerarquia de objetos y es mas "comodo" o trabajar con access 97. Tienes algun motivo para usar DAO?

Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Dim existefechaSQL As String
Dim tabla As String
Dim mifecha As String
tabla = "libros"
mifecha = "681.3"

Set db = DBEngine.Workspaces(0).OpenDatabase("db.mdb")

existefechaSQL = "SELECT * FROM " & tabla & _
" WHERE cantolibro LIKE '" & mifecha & "'"

Set rs = db.OpenRecordset(existefechaSQL)
End Sub

Saludos y Suerte