If then yapısı ile oluşturduğum bir programda bir problemim var. Aşağıda koyu harfler ile belirtilen satırı uygulamdan bir sonraki if yapısına geçiyor. Acaba nerede hata yapıyorum
Belki de Bitiş_Zamanı için büyük eşittir ve küçük eşittir ifadesini aynı anda kullanmam olmuş olabilir mi 
Yardımlarınız için şimdiden teşekkür ederim
Private Sub Bitiş_Zamanı_AfterUpdate()
Dim SURE As Date
If Bitiş_Zamanı <= #9:00:00 AM# Then
Me.Aktif_Süre = Me.Bitiş_Zamanı - Me.Başlangıç_Zamanı
ElseIf Bitiş_Zamanı >= #9:10:00 AM# And Bitiş_Zamanı <= #12:00:00_ AM# And Başlangıç_Zamanı <= #9:00:00 AM# Then
SURE = DateAdd("n", -10, Bitiş_Zamanı)
Me.Aktif_Süre = SURE - Me.Başlangıç_Zamanı
Else
Me.Aktif_Süre = #9:20:00 PM#
End If
End Sub
