suche = Ordner & *
 
        Try
            con.Open()
            cmd.CommandText = "Delete FROM Kommentar_Lokal WHERE Datei Like '" _
              & suche & "'"
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
      Dim anzahl As Integer
        anzahl = cmd.ExecuteNonQuery()
 
        con.Close()
 
        If anzahl > 0 Then
            'Datensatz wurde gelöscht
        Else
            MsgBox("Datensatz - Kommentar konnte nicht gelöcht werden")
        End If