Ainda não consegui fazer a consulta somente com o campo data;
estou usando o seguinte comando:
dbdados.RecordSource = "select * from tbltabela where [codigo] = " & mskcodigo.Text & " And [dia] = " & hoje & ""
O sistema não está identificando a data...