Dim cmd As New OleDbCommand(SQL, OleDbConnection1)
        Dim Oleda As New OleDbDataAdapter(cmd)
        Dim cb As New OleDbCommandBuilder(Oleda)
 
 
        Dim cm As CurrencyManager = Me.BindingContext(grdData.DataSource, _
          grdData.DataMember)
 
 
        Dim drv As DataRowView = CType(cm.Current, DataRowView)
 
drv.Delete()
 
 Try
            OleDbConnection1.Open()
 
            Oleda.Update(DseTaetigkeit, "TAETIGKEIT")
 
 
 
Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
 
        grdData.Refresh()
 
        OleDbConnection1.Close()
 
 
 
    End Sub