Private Sub cmdlöschen_click()
Dim sNr As Integer
 
 
sNr = InputBox("Geben Sie die Nr. des Datensatzes ein, den sie löschen" & _
  "möchten.")
If Val(sNr) > 0 Then
 
dbmp3db.Execute "DELETE * FROM tabelle1 WHERE Nr = sNr"
 
MsgBox "Der Datensatz Nr. " & sNr & " wurde gelöschen. " & _
      "Klicken Sie auf AKTUALISIEREN um eine aktuelle Ansicht zu erhalten."
End If
End Sub