Private Sub cmdlöschen_click()
Dim löschentext As Integer
Dim sqllöschen As String
Dim rslöschen As Recordset
 
löschentext = InputBox("Geben Sie die Nr. des Datensatzes ein, den sie löschen" & _
  "möchten.")
sqllöschen = "Nr like '" & löschentext & "'"
Set rslöschen = dbmp3db.OpenRecordset(sqllöschen)
rslöschen.Delete
MsgBox "Der Datensatz Nr. " & löschentext & " wurde gelöschen. Klicken Sie auf" & _
  "AKTUALISIEREN um eine aktuelle Ansicht zu erhalten."
 
End Sub