Visual Basic.NET - Ayuda

Hola!!!!

Necesito la ayuda de ustedes. Tengo que comparar la fecha de hoy con una que se encuentra en la Base de Datos, tengo la siguiente sentencia pero no me funciona.

cm.CommandText = "Select * from ControlFechas where fecha = '" & Date.Now() & "'" en la captura del error me dice que los datos no conciden, no se que será

Gracias

Debes utilizar el método ToString de la fecha para convertirla a texto, asegurandote de que el formato coincida con el utilizado en tu Base de Datos :

cm.CommandText = "Select * from ControlFechas where fecha = '" & Date.Now.ToString ("dd/MM/yyyy") & "'"