URGENTE: Problema con Recordset

[rebeca22]

El siguiente código da el siguiente error: (Error 13 "no coinciden los tipos")

Dim db as Database
Dim rs as Recordset
Dim sentSQL as String

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

sentSQL = "SELECT * FROM " & tabla & _
" WHERE elem LIKE '" & mielem & "'"

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

' tabla es una vble. de tipo string que contiene el nombre de la tabla
' elem es un campo string de esa tabla
' mielem es un string elegido por el usuario

' El error que da parece indicar que sentSQL 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 marcado en referencias: DA0 3.51 Object Library
' No dispongo de DAO 3.6
' Mi BD está creada con Access 97