No, I typed this :
Private Sub Form_Open(Cancel As Integer)
Dim Nom As String
Dim Prénom As String
Nom = DLookup("[strNom]", "tblUsers", "[strIGGID]= " & Environ("username") & "'")
Prénom = DLookup("[strPrénom]", "tblUsers", "[strIGGID]= " & Environ("username") & "'")
DoCmd.ApplyFilter ...