erro tipos incompativeis

No comando abaixo quero recuperar os registros que tenham o campo DISCRIMINAÇÃO preenchido com a frase 'Diária Motoristas'.

O campo DISCRIMINAÇÃO está definido como texto.  Quando executo o comando acusa op erro TIPOS INCOMPATIVEIS

Alguem saberia a causa ?


        strSQL = "SELECT data,discriminação,débito,crédito FROM movimento"
      
        strSQL = strSQL & " Where DISCRIMINAÇÃO LIKE 'Diária Motoristas' "
            
        Set rst = dbs.OpenRecordset(strSQL)

E assim:

strSQL = "SELECT data,discriminação,débito,crédito FROM movimento Where DISCRIMINAÇÃO LIKE'" & "Diária Motoristas" & "'"

nada feito. Deu o mesmo erro