Dim adapter As New MySqlDataAdapter
        Dim ds As New DataSet
 
 
        Private Sub frmStammdaten_Closing(ByVal sender As Object, ByVal e As _
          System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Dim cBuilder As New MySqlCommandBuilder
        Try
            adapter.DeleteCommand = New MySqlCommand("DELETE FROM" & _
              "tbl_import_sta_summen WHERE id=" & grdStammdaten.Item( _
              grdStammdaten.CurrentRowIndex, 0), frmMain.oConn)
            adapter.Update(ds, "tbl_import_sta_summen")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        End Sub