Cita: .CommandText = "SELECT * FROM Horario Where (Numctl= & clave and Dia= & dia)"
El error esta en que todo el SQL incluso las variables estan entre comillas, cuando lo correcto seria concatenar las condiciones con los parametros, asi:
Código:
"SELECT * FROM Horario WHERE (Numctl = " & clave & " AND Dia = " & dia & ")"
Saludos