Cualquier cosa que se pida al usuario mediante InputBox es una cadena de texto. Para almacenarlo en una variable de tipo fecha, deberás convertirlo en fecha, mediante la función de conversión CDate por ejemplo: Dim Fecha As Date Fecha = CDate(InputBox("indique la fecha de comparación")) Si lo que tienes en la base de datos es una fecha, podrías compararlo directamente con la fecha introducida, independientemente del formato. Otra cosa es que lo que tengas en la base de datos no sea una fecha, sino un texto con apariencia de fecha. Comprueba lo que tienes en la base de datos por si acaso.