Dim db As Database Dim rs As Recordset Dim sql As String Set db = OpenDatabase(<nombase>) sql = "SELECT <tonchamp> FROM <table> WHERE <tonchamp> = '" & SO_quote & "'" Set rs = db.OpenRecordset(sql, dbOpenDynaset) ' ici on est bien en mode écriture dbOpenDynaset If rs.recordCount = 0 then msgBox "Mauvaise saisie" End If rs.close