Dim rs As RecordSet Dim db As Database Dim NomChercher As String '... NomChercher = "Hansol" Set rs = db.OpenRecordSet("SELECT * FROM MaTable;", dbOpenSnapshot) rs.FindFirst "Nom = " & NomChercher If (Not rs.NoMatch) Then Text1.Text = rs.Fields("Nom").Value 'OU 'Text1.Text = NomChercher 'Else End If '...