Tabelle in array einlesen

Hallo Experten
Ich will eine Tabelle mit 50 Spalten und 27 Zeilen in Variablen speichern um sie in eine andere Tabelle zu schreiben. Ich hab das ganze mit normalen Variablen probiert, hat funktioniert, nur würde ich da 1350 Variabeln benötigen. Tja, es geht aber auch mit einer array-Variabel, aber wie?
Danke

dim db as database
dim quelle as recordset
dim ziel as recordset

Set db = dbengine(0)(0)
set quelle = db.openrecordset("Quelltabelle")
set ziel= db.openrecordset("Zieltabelle")
while not quelle.eof
 ziel.addnew
 ziel!Feld1=quelle!Feld1
 ...
 ziel.update
 quelle.movenext
wend
ziel.close
quelle.close
set db = nothing

pp

Hallo Franz,

Falls die beiden Tabellen in derselben Datenbank sind:

Warum erst in ein Array einlesen? Man kann doch SQL verwenden, um einen oder mehrere Datensätz von einer Tabelle in eine andere zu kopieren, sogar mit einigen kleinen Konvertierungen und Brechenungen, wenn es sein muß (INSERT Statement).

Um was für eine Datenbank handelt es sich? Access 2000, oder…?
Von wo aus greifst du darauf zu? VBA für Access 2000 oder VB6, oder …?

CU
Markus

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Problem gelöst
Danke lieber Peter
Du hast mich davon gerettet, nun weitere 100 schlaflose Nächte über diesem Problem zu grübeln.
Deine 15 Zeilen haben das Problem auf den Punkt genau lösen können.