bestimmte Anzahl von Objekten erzeugen, Anzahl zur Entwurfsz

Hi!

Ich erzeuge mit Adox eine Jet-Datenbank und muss die Anzahl der Spalten dynamisch programmieren. Bis jetzt sieht das ganze so aus:

Dim AdoxColumnLat = New ADOX.Column
AdoxColumnLat.ParentCatalog = AdoxCatalog
AdoxColumnLat.Name = TABLE_COL_LATITUDE
AdoxCatalog.Tables(AdoxTable.Name).Columns.Append(AdoxColumnLat)

Dim AdoxColumnLong = New ADOX.Column
AdoxColumnLong.ParentCatalog = AdoxCatalog
AdoxColumnLong.Name = TABLE_COL_LONGITUDE
AdoxCatalog.Tables(AdoxTable.Name).Columns.Append(AdoxColumnLong)

wenn ich das in eine Schleife packe (und denselben Variablennamen für New ADOX.Column verwende) überschreibe ich immer die vorhergehende Spalte, so dass ich am Ende nur eine einzige Spalte - nämlich die letzte - eingefügt habe. Ich habe versucht die Spalten alle in einem Array zu erzeugen, aber das hat auch nicht geklappt (vielleicht ein Syntaxfehler) Hat jemand eine Idee, wie ich das Problem lösen könnte?

Schon mal Danke im voraus!





Sebo