Creo que es porque en la consulta, las fechas las tienes que poner entre ', quedaria asi:
Código:
st = "select hora from Maquina where Fecha=' " & fech & " ' and Linea=' " & lin & " ' and Estado<> '" & estado & " ' order by hour asc"
No lo he probado, pero si no recuerdo mal se hacia asi.
Ya me dices algo.