Problema Com Data

[smez]

To com um problema no meu codigo

tenho em um banco de dados cadastrado data , hora e nome

como que eu faço para ele buscar somente o dado que se revere aquele dia da semana e hora e imprimir na consulta

eu fiz o seguinte codigo

HoraAtual=hour(Time) & ":" & minute(time)
Data2 = DateAdd("d", (Weekday(Date)), Date)

sql = "SELECT * FROM noAr WHERE data Between #" & Data2 & "# AND final >= #" & FormatDateTime(Time(),vbshorttime)

so que ele n esta buscando o dia da semana certo

ele está buscando assim

quando e quarta-feira ele imprimi sabado

como que eu faço

esse sistema que de uma radio ao vivo, dai ele mostra que programa esta no ar agora

[bareta]

sql = "SELECT * FROM noAr WHERE data Between #" & Data2 & "# AND  #" & date&" "&time&"#"

tente assim