Private Function Zeile_löschen(ByVal sSQL As String, ByVal DT As DataTable, _
  ByVal DS_Name As String)
        Dim CB As OleDbCommandBuilder
        Dim DA As OleDbDataAdapter
        Dim DR As DataRow
        Dim cm As CurrencyManager
 
        'Lösche den Inhalt des DataSets um es neu zu füllen
        DS_all.Tables(DS_Name).clear()
 
        DA = New OleDbDataAdapter(sSQL, adoConn)
        CB = New OleDbCommandBuilder(DA)
        DA.Fill(DS_all, DS_Name)
        cm = CType(Me.BindingContext(DS_all, "Station"), CurrencyManager)
        If cm.Count > 0 Then
            Dim msg As String = "Wollen Sie den Datensatz wirklich löschen?"
            Dim cpt As String = "FeCon Zentrale"
            If MessageBox.Show(msg, cpt, MessageBoxButtons.YesNo, _
              MessageBoxIcon.Question) = DialogResult.Yes Then
                'Lösche die Zeile im DataGrid
                'alte_Pos wird vor dem löschen des DataSets gespeichert
                cm.RemoveAt(alte_Pos)
                'Beendet die aktuelle Bearbeitungsoperation
                cm.EndCurrentEdit()
                DT = DS_all.Tables(DS_Name)
                If DT.DataSet.HasChanges() Then
                    Try
                        DA.Update(DS_all, DS_Name)
                    Catch ex As Exception
                        MsgBox("Datensatz konnte nicht gelöscht werden!" & _
                          Environment.NewLine & _
                        ex.Message, MsgBoxStyle.Critical)
                    End Try
                End If
            End If
        End If
    End Function