Prueba esto:
Código vb:
Ver originalDim query as String = "SELECT cod_cli AS Codigo, rut_cli AS Rut, nombre_cli AS Nombre, fijo_cli AS Telefono, movil_cli As Celular, email_cli AS Mail FROM cliente WHERE (CONVERT(VARCHAR, Fecha, 103) = '" & fecha.Date & "')"