MaChaine = "Le début " & MonTextBox.Text & " la suite"
... Where Nom = 'toto'
... Like '*toto*' tout champ composé avec toto ... Like 'toto*' tout champ commençant par toto ... Like '*toto' tout champ finissant par toto
DoCmd.RunSQL ("SELECT * FROM personne WHERE NOM Like '*" & txtbox1.Text & "*')
... txtbox1.Text & "*'")