Formulaire interactif Access

Bonjour,

Je souhaite mettre sur pied une base de donnée avec un formulaire interactif permettant de filtrer les données de ma table. Ma table est très simple: enregistrement d'événements par date, pays et type d'événement. Les filtres doivent s'appliquer aux mêmes critères.
J'ai écrit un code sous visual basic mais il y a des bugs que je n'arrive pas à résoudre étant assez novice sur Access.

Voici le code reproduit:

Private Sub btnOK_Click()
Dim strFiltre As String
Dim strDate As Date

'Filtre par date
If Not IsNull(Me.dtDate1) Then
If strDate <> "" Then strDate = strDate & << AND >> strDate = strDate & "([Date]>=" & Me.dtDate1 & ")"
End If
If Not IsNull(Me.dtDate2) Then
If strDate <> "" Then strDate = strDate & << AND >> strDate = strDate & "([Date]>=" & Me.dtDate2 & ")"
End If

'Filtre par pays
If Not IsNull(Me.txtPays) Then
If strFiltre <> "" Then strFiltre = strFiltre & << AND >> strFiltre = strFiltre & "([Pays])=" & Me.txtPays & ")"
End If

'Filtre pr type d'événement
On Error Resume Next
strFiltre = ""
If Not IsNull(Me.CmbEvenement) Then
strFiltre = "([Code Evenement]='" & Me.CmbEvenement & "')"
End If

Next

'Afficher le résultat
Me.lblSQL.Caption = strFiltre

'Filtrer le sous formulaire
With Me.sfmResultats.Form
.Filter = strFiltre
.FilterOn = True
End With
End Sub


Private Sub btnTous_Click()
Me.sfmResultat.Form.FilterOn = False
End Sub

Private Sub comFermer_Click()
On Error GoTo Err_comFermer_Click


DoCmd.Close

Exit_comFermer_Click:
Exit Sub

Err_comFermer_Click:
MsgBox Err.Description
Resume Exit_comFermer_Click

End Sub

Lorsque je test le programme, j'obtiens deux erreurs de compilation/Erreur de syntaxe au niveau des lignes filtre par Date et Filtre par Pays.
D'autre par, à la ligne Filtre par type d'événement, le programme affiche Erreure de compilation/Next sans For.

Quelqu'un pourrait il m'aider? Merci beaucoup par avance.
Ps je suis obligé de travailler sur Access 97.

Jean Paul