Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.BindingContext(Me.DS_TerminalService1, "Table1").EndCurrentEdit()
        ' ggf. einbinden Me.DS_TerminalService1.Table1.AcceptChanges()
        Me.Co_DBInterface1.DeleteRows(Me.DS_TerminalService1, "Table1", " Where" & _
          "test = '" & "test" & "'")
    End Sub
 
    Public Sub DeleteRows(ByVal ds_DataSetObjekt As System.Data.DataSet, ByVal _
      DataTableName As String, ByVal WhereClausel As String)
        'Interne Datenbankanbindung
        Dim con_DBconnection As New System.Data.SqlClient.SqlConnection
        'Datenbank wird geöffnet. Rückgabewert von OpenDBConnection ist die 
        ' offene Datenbank.
        con_DBconnection = OpenDBConnection()
        'Sql-String für den Datenadapter.
        Dim str_Sql As String = "delete  FROM " & DataTableName & WhereClausel
        'Datenadapter wird konfiguriert, um die aktuelle Tabelle mit der 
        ' Datenbank ab zu gleichen. 
        Dim ds_adp_SQLDbDA As New System.Data.SqlClient.SqlDataAdapter
        ds_adp_SQLDbDA.DeleteCommand = New SqlCommand(str_Sql, con_DBconnection)
        'Schema wird für Updateforgang angepasst
        ds_adp_SQLDbDA.MissingSchemaAction = _
          System.Data.MissingSchemaAction.AddWithKey
        'Der CommandBuilder ermöglicht die Abänderung in der Datenbank über 
        ' Update, 
        'so dass nur veränderte Datensätze gespeichert werden.
        Dim cb As New SqlCommandBuilder(ds_adp_SQLDbDA)
        Try
            ds_adp_SQLDbDA.Update(ds_DataSetObjekt, DataTableName)
            ds_adp_SQLDbDA.Dispose()
        Catch ex As Exception
            Me.Co_SystemComponent1.ErrorMail("co_DBInterface", _
              cup_System.cls_System_Global.PersonalID.ToString, New StackFrame( _
              ).GetMethod().Name, ex, "", True, True, False, False)
        Finally
            'Verbindung schließen, egal ob die Ausnahme ausgelöst wurde oder 
            ' nicht.
            con_DBconnection.Close()
        End Try
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)