Erreur de compilation me.

Bonjour tt le monde, j'aimerai que vous m'aider svp
j'ai une une fonction et je vais l'executer d'un combobox(apresMAJ), mais le resultat est erreur de compilation
Sachant que le champ ville et stagiaire est texte
Private Sub Modifiable4_AfterUpdate()
Call Recherche
End Sub
voila ma fonction:
Dim vil, stag As String
Dim task, strcriteria As String
If IsNull(Me.Modifiable4) Then
vil = "[ville] like'*'"
Else
vil = "[ville]= '" & Me.Modifiable4 & "'"
End If
If IsNull(Me.Modifiable18) Then
stag = "[Stagiaire] like'*'"
Else
stag = "[Stagiaire]='" & Me.Modifiable18 & "'"
End If
strcriteria = vil & "and" & stag
task = "select * from repertoire where " & strcriteria
Me.repertoire_sous_formulaire.Form.RecordSource = task
Me.repertoire_sous_formulaire.Form.Requery
End Function

merci d'avance