Вопрос глупый. Импортирую из txt-шника в таблицу. Есть 2 кода. Первый работае, второй - нет. Они относятся к разным типам импортируемых файлов, но в общем являются аналогичными. Подскажите в чем ошибка. И еще : во втором коде строка вида : ААА "ИИИ" сохраняется в массиве только в виде ААА. Когда же в строке нет кавычек - все нормально.

Правильно работающий код:
======
Private Sub ImportUSBank(theSourcePath, theSourceFile, theTableName)
Dim tblImpName, rst As New ADODB.Recordset, theDate, theDocNum, theCounter, theArrayTemp(50), strJoined, theArrayFinal

tblImpName = "imp_USBank"

With rst
.Open "SELECT * FROM [Text;DATABASE=" & theSourcePath & "\]." & theSourceFile, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
.Find "[" & .Fields(0).Name & "] Like '*(-C-)*'", , adSearchForward
Do While Not .EOF
theDate = DateSerial(Mid(.Fields(0), 33, 4), Mid(.Fields(0), 30, 2), Mid(.Fields(0), 27, 2))
theDocNum = Mid(.Fields(0), 45)
.MoveNext: theCounter = 0
Do While Trim(.Fields(0)) <> ""
theArrayTemp(theCounter) = Trim(Left(.Fields(0), 10) & Replace(.Fields(0), ":", " ", 11))
.MoveNext: theCounter = theCounter + 1
Loop
strJoined = Join(theArrayTemp, "")
theArrayFinal = Split(strJoined, ":")

dbTransfer.Execute "Insert Into " & tblImpName & " (A, b, c, d, e, f, g, h) " & _
"Values ('" & theDate & "', '" & theDocNum & "', " & Replace(Replace(theArrayFinal(1), "(RUR)", ""), ",", "") & ", '" & theArrayFinal(3) & "', '" & theArrayFinal(5) & "', '" & theArrayFinal(7) & "', '" & theArrayFinal(9) & "', '" & theArrayFinal(11) & "')"
Erase theArrayTemp
.Find "[" & .Fields(0).Name & "] Like '*(-C-)*'", 1, adSearchForward
Loop
End With

dbTransfer.Execute "Insert Into " & theTableName & " IN '" & dbMainName & "' " & dbTransfer.QueryDefs("qdf_" & Mid(tblImpName, 5)).SQL
dbTransfer.Execute "DELETE * FROM [" & tblImpName & "]"
End Sub

Второй (плохой) код :
=====
Private Sub ImportUSBank(theSourcePath, theSourceFile, theTableName)
Dim tblImpName, rst As New ADODB.Recordset, theDate, theDocNum, theCounter, theArrayTemp(100), strJoined, theArrayFinal

tblImpName = "imp_USBank"

With rst
.Open "SELECT * FROM [Text;DATABASE=" & theSourcePath & "\]." & theSourceFile, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
.Find "[" & .Fields(0).Name & "] Like 'Iiia?*'", , adSearchForward
Do While Not .EOF
theDocNum = Mid(.Fields(0), 7)
.MoveNext
theDate = DateSerial(Mid(.Fields(0), 12, 2), Mid(.Fields(0), 9, 2), Mid(.Fields(0), 6, 2))
.MoveNext: theCounter = 0
Do While Trim(Left(.Fields(0), 5)) <> "Iiia?"
theArrayTemp(theCounter) = Trim("=" & .Fields(0))
.MoveNext: theCounter = theCounter + 1
Loop
strJoined = Join(theArrayTemp, "")
theArrayFinal = Split(strJoined, "=")

dbTransfer.Execute "Insert Into " & tblImpName & " (A, b, c, d, e, f, g, h) " & _
"Values ('" & theDate & "', '" & theDocNum & "', '" & theArrayFinal(2) & "' , '" & theArrayFinal(10) & "'" & "'" & theArrayFinal(14) & "'" & "'" & theArrayFinal(22) & "', '" & theArrayFinal(24) & "', '" & theArrayFinal(44) & "', '" & theArrayFinal(42) & "'" & "'" & theArrayFinal(48) & "'" & "'" & theArrayFinal(52) & "', '" & theArrayFinal(60) & "')"
Erase theArrayTemp

Loop
End With

dbTransfer.Execute "Insert Into " & theTableName & " IN '" & dbMainName & "' " & dbTransfer.QueryDefs("qdf_" & Mid(tblImpName, 5)).SQL
dbTransfer.Execute "DELETE * FROM [" & tblImpName & "]"
End Sub

Заранее спасибо