Acemiliğime bağışlayın hocam tabloda 
muayene tarihi
dönemi
geliş tarihi
onay tarihi sütunları var 
sorgudaki  DÖNEMİ sütununa 
Between [Formlar]![FORM]![tar1] And [Formlar]![FORM]![tar2]
ifadesini aşağıdaki kodun içine nasıl yazabilirim acaba.
Private Sub Açılan_Kutu1_AfterUpdate()
If Açılan_Kutu1 = "Bu aya gelenler" Then
Me.tar1 = DateAdd("m", -1, Date)
Me.tar1 = CDate("21." & Month(tar1) & "." & Year(tar1))
Me.tar2 = CDate("20." & Month(Date) & "." & Year(Date))
ElseIf Açılan_Kutu1 = "Geçen ay gelenler" Then
Me.tar1 = DateAdd("m", -2, Date)
Me.tar1 = CDate("21." & Month(tar1) & "." & Year(tar1))
Me.tar2 = DateAdd("m", -1, Date)
Me.tar2 = CDate("20." & Month(tar2) & "." & Year(tar2))
End If
Me.FORMALT.Requery
End Sub