Access - ejecutar código entre fechas de inicio y fin

Private Sub Comando192_Click()

Dim INICIO As Variant, FINAL As Variant, ACTUAL As Variant

INICIO = Me.DURACIÓN_CURSOS.Value

FINAL = Me.FIN_CURSO.Value

ACTUAL = Me.Texto193.Value

If IsNull(INICIO) Then

Exit Sub

End If

If IsNull(FINAL) Then

Exit Sub

End If

If ACTUAL > INICIO And ACTUAL > FINAL Then

MsgBox "curso terminado", vbExclamation, "ERROR"

End If

If ACTUAL > INICIO And ACTUAL < FINAL Then

MsgBox "estamos en el curso", vbExclamation, "ERROR"

End If

If ACTUAL < INICIO And ACTUAL < FINAL Then

MsgBox "el curso no ha empezado", vbExclamation, "ERROR"

End If

End Sub