Hola CRUZFIVE,
No es mas complicado que contar las coincidencias existentes.
Dim ConsultaSQL As String = "SELECT COUNT(*) FROM MiTabla WHERE (Fecha = ?)"
Dim cmd As New OleDbCommand (ConsultaSQL, cn)
cmd.Parameters.AddWithValue("param1", DateTime.Today)