我的字段名"Column1" ，"Column2"，，"Columni"，想把excel表中的列1，列2内容写入对应ACCESS中，却没有成功，应如何写这个代码？

For j = 1 To i
rs.Fields.Item(j).Value = Sheets(excelname).Cells(1, j)

Next