De fecha inicio a fecha fin en función una variable día

[Baldo_mero]

Porqué no me funciona cuando en lugar de una fecha concreta como parámetro de la consulta uso una referencia a un campo de formulario, bien como cuadro de texto o como cuadro combinado?


Private Sub Comando0_Click()
Dim db
Dim registro
Dim avance
Dim consulta
consulta = "SELECT TablaDias.Id_dia, TablaDias.Dia FROM TablaDias WHERE (((TablaDias.Dia)>=#6/16/2005#));"
Set db = CurrentDb()
Set registro = db.OpenRecordset(consulta)
avance = InputBox("Introduce el número de días del curso")
If IsEmpty(avance) Then
MsgBox "Por favor, tienes que introducir el número de días que tiene el curso"
Else
registro.Move (avance - 1)
MsgBox " La fecha final del curso es:" & Chr(13) & registro("Dia")
End If
End Sub

A ver si alguien puede orientarme

Saludos