Feldnamen ändern in Access 2000 über VB

[Drunkjack]

Hallo zusammen,

ich importiere über ein VB-Programm eine Exceldatei. Dort werden die Feldnamen fortlaufend nummeriert (Feld1, Feld2 etc...)
Für das Programm müssen aber die feldnamen angepasst werden.

Code:
'Vorbereitung zur Feldnamensänderung
Set DB1 = DBEngine.OpenDatabase(sDBName, True, False)
Set Rs1 = DB1.OpenRecordset("Kopie", dbOpenDynaset)
i = 0
For Each fldk In Rs1.Fields
testfld = Rs1.Fields(i).Name 'auslesen ist ok
Hier der Fehler: Funktion oder Prozedur erwartet
Rs1.Fields(i).Name = fldname(i).Value
Hier der 2. Versuch, Fehler 3219 Ungültige Operation
Rs1.Fields(i).Name = "Wert"
i = i + 1
MsgBox "Feldnamen: " & testfld
Next
Hat jemand eine Idee, was ich falsch mache?

Ich bin dankbar für jede Hilfe

Gruss
Drunkjack