Private Sub cmdlöschen_click()
Dim löschtext As Integer
Dim sqllöschen As String
Dim rslöschen As Recordset
 
löschtext = Nr.Text
 
sqllöschen = "select * from tabelle1 where Nr LIKE " & löschtext & ""
Set rslöschen = dbmp3db.OpenRecordset(sqllöschen)
rslöschen.Delete
 
MsgBox "Der Datensatz Nr. " & löschtext & " wurde gelöscht. " & _
      "Klicken Sie auf AKTUALISIEREN um eine aktuelle Ansicht zu erhalten."
 
End Sub