Dt.Columns("TestID").ReadOnly = False
        Dt.Columns("TestID").AutoIncrementSeed = -1
        Dt.Columns("TestID").AutoIncrementStep = -1
        Cb = New MySqlCommandBuilder(Da)
        AddHandler Da.RowUpdated, AddressOf Test_RowUpdated

 Private Sub Test_RowUpdated(ByVal sender As Object, _
                                  ByVal e As MySqlRowUpdatedEventArgs)
                If e.Status = UpdateStatus.Continue AndAlso _
            e.StatementType = StatementType.Insert Then
            e.Row!TestID = getIdentity.ExecuteScalar()
            e.Row.AcceptChanges()
        End If
    End Sub

    'Änderungen in der DataTable speichern -> Update
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.Windows.RoutedEventArgs) Handles Button2.Click
        Dim Test As String = Trim(TextBox1.Text)
        Dim TestID i As integer
        Dim results As DataRow()
        Dim newTest As DataRow
        Da.Update(Dt)
 
    End Sub