Ребята, помогите пожалуйста исправить код!!!
Небольшой ликбез:
есть экселевская табличка, кот. нужно загрузить в базу через рекордсет!
табл. имеет след. вид:
1 - тип контракта(уникальный)
2- date
3- Px Last

LNX5 Comdty
Date Px Last
04.01.2005 13650
05.01.2005 13850
06.01.2005 13990
07.01.2005 14325
10.01.2005 14175
11.01.2005 14250

LNX5 Comdty - ячейка(1.1)
Date - ячейка(1.2)
Px Last - (2.2)

Нужно испольсуя .Fields и MoveNext исправить код. В данном коде считывается 1-ая запись!
Dim rsText As New clsTextRecordset
rsText.OpenRecordset strFileName

If rsText.FieldsCount <> UBound(arrFieldToParams) + 1 Then
strResult = "."
End If

rsAT_Fields.MoveFirst
i = 0

Do While i < rsText.FieldsCount And i < UBound(arrFieldToParams) + 1
If rsText.GetNameByFieldNumber(i) <> rsAT_Fields("ExcelName") Then
If strResult <> "" Then strResult = strResult & vbCrLf
strResult = strResult & i + 1 & {" & rsAT_Fields("ExcelName") & "}, {" & rsText.GetNameByFieldNumber(i) & "}"
'Exit Function
End If
'Debug.Print rsAT_Temp.Fields(i).Name & " " & rsAT_Fields("ExcelName")
rsAT_Fields.MoveNext
i = i + 1
loop]

база Access