For i as integer = 0 To Schema_Tabellen_Table.Rows.Count - 1
            Dim MeineDatenreihe As DataRow = Schema_Tabellen_Table.Rows(i)
            AccessTabellenName = MeineDatenreihe("TABLE_NAME").ToString
            MyCommand = New OleDbDataAdapter("select * FROM " & _
              AccessTabellenName, MyConnection) 'Accesstabelle einlesen
            MyCommand.Fill(Importdataset, AccessTabellenName)
            TextBox1.AppendText(AccessTabellenName & vbNewLine) ' zum Testen
        Next i