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 TABELLENNAME 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

    dbmp3db.Execute "DELETE * FROM TABELLENNAME WHERE" & _
      "Nr = " + sNr)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de