Record compreso tra due orari

[djjunior]

oras = formatDateTime(Time(),vbShortTime)

sql = "SELECT * FROM programmi where ora_da < '" & oras & "' and ora_a > '" & oras & "' "