sqlfehler = "select * from tabelle1 where Nr = " & Nummer & ""
Set rsfehler = dbmp3db.OpenRecordset(sqlfehler)
If rsfehler.NoMatch = False Then
MsgBox "Die Nr. " & Nummer & " ist schon vorhanden. Wählen Sie eine andere."
Exit Sub
End If