Dim SQLAnweisung As String = "CREATE TABLE " & txtanlegen.Text & ";"
        Dim Datenadapter1 As New OleDbDataAdapter(SQLAnweisung, Verbindung)
        Dim table As New DataTable(txtanlegen.Text)
        Dim row As DataRow
        table.Columns.Add("ID")
        For i As Integer = 0 To 9
            row = table.NewRow()
            row("ID") = "Zeile " & i
            table.Rows.Add(row)
        Next i
        Datensatz.Tables.Add(table)
        Datenadapter1.Fill(Datensatz)