' jede Tabelle hat einen Autowert mit der Bezeichnung ID
    Public name_Test As String = "tbl_Test"			' Tabellen Name
    Public tbl_Test As New Collection				' Ursprungsdaten der Tabelle
    Public key_Test As New ArrayList				' Spalten Namen der Tabelle
    Public typ_Test As New ArrayList				' Typ der Spalten
    ' geänderte Daten der Ursprungsdaten
    Public tmp_Test As New Collection				' Temporäre Daten der Tabelle

      ' Daten der Colletion in die Textboxen schreiben
            Do
                Textbox_Füllen(tbl_Test, key_Test)
            Loop Until Counter_lesen = key_Test.Count - 1
            Counter_lesen = 0
 
    Private Sub Textbox_Füllen(ByVal tmp_tbl As Collection, ByVal tmp_key As _
      ArrayList)
        Try
            Counter_lesen += 1
            Dim TB As TextBox 
            TB = CType(Controls("txt_" & tmp_key(Counter_lesen).ToString), _
              TextBox)
            TB.Text = tmp_tbl(tmp_key.Item(Counter_lesen))
        Catch ex As Exception
		‘ Fehler
        End Try
    End Sub