'Ä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

Micke