Private Sub Button_Click()
 
 Set rs = db.OpenRecordset("SELECT * FROM repairsmain;")
    If rs.RecordCount = TextFeld.text then
      msgbox "Nummer gefunden"
    else 
      msgbox "Nummer nicht gefunden"
 
    rs.close
   set rs = nothing
 
End Sub

Liebe Gr??e

Christina

--------------------------------
Wo VB-Anf?ngerin ist *gg*