VB: Problema con OpenRecordSet

[rebeca22]

El siguiente código falla (el error que da es "Error 13. No coinciden los tipos")

Dim db as Database
Dim rs as Recordset


Set db = DBEngine.Workspaces(0).OpenDatabase("c:\basedatos. mdb")

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

Set rs = db.OpenRecordset(existefechaSQL) '¡¡ aqui da el error !!

' tabla es una vble. de tipo string que contiene el nombre de la tabla
' fecha es un campo de esa tabla
' mifecha es la fecha elegida por el usuario

' El error que da parece indicar que existefechaSQL no es un parámetro válido. ¿Por qué? ¿Qué puedo hacer para poder leer el recordset?

' Mi proveedor de BD es Microsoft Jet 4.0. Tengo señalada en referencias DAO 3.51 Object Library.