uso ado
questa e la mia stringa di ricerca

codice:
    SQL = ("SELECT * FROM ore WHERE ora Between #08:00# And #13:00# And(data='" & G1.Text & "/" & Mese.Text & "/" & Anno.Text & "' AND matricola= '" & matricola.Text & "' AND entusc= '" & "1000" & "')")
    Set rs = cn.Execute(SQL)
If Not rs.EOF Then
GME1.Text = CheckTime(CDate(rs("ora").Value))
Else
GME1.Text = ""
End If

rs.Close