Access - duda en consulta

Hola! ¿que tal?
Resulta que me sale el siguiente runtime error:
NO COINCIDEN LOS TIPOS DE DATOS EN LA EXPRESION DE CRITERIOS

SQL = "SELECT codigo FROM clientes WHERE Nombre LIKE '" & txtPaciente.Text & "'"
Set UserN = WDB.Execute(SQL)
ID = UserN!codigo


sbuscar = "%" & txtBusqueda.Text & "%"
If cmbBuscar.Text = "Fecha" Then

SQL = "SELECT DISTINCT * FROM Informe WHERE Fecha LIKE '" & sbuscar & "' and cod_Paciente = '" & ID & "' ORDER BY Fecha"

¿Que podria ser?

Hola, mira cuando compares una fecha en SQL siempre tienes que ponerle delante este símbolo #, así indicas que es una fecha y no un String. Por tanto quedaría solucionado así:

SQL = "SELECT DISTINCT * FROM Informe WHERE Fecha LIKE #" & sbuscar & "# and cod_Paciente = '" & ID & "' ORDER BY Fecha"

Espero que esto solucione tu problema. Saludos. Alfredo.