Сообщение "Произошли ошибки во время выполнения многоша

[nained]

Циклом прочитываю ячейки Excel-файла и загоняю их в БД.
И все хорошо если бы не сообщение " Произошли ошибки во время выполнения многошаговой операции. Проверьте значения всех состояний"

Дело в том что одинаковые файла, одинаковые строки но в одном документе все хорошо в другом выдает сообщение.

Что делать? Что это за ошибки и где проверить значения состояний?

[Ennor]

Объект Connection, коллекция Errors.

[Antonariy]

Чаще всего это означает, что попытался записать в текстовое поле строку, имеющую длину большую, чем положено.

[nained]

а как этим воспользоваться на практике?

Функиця приблизительно такая.
В один прекрастный момент выдает ошибку, я думаю она связана с чтением данных из Excel.

ЧТо тут проверять к чему этот Error привязывать?

Dim objXLApp As Object
Set objXLApp = CreateObject("Excel.Application")
objXLApp.Workbooks.Open FileName:=Me![TempData], UpdateLinks:=0
objXLApp.Visible = False
Set con = Application.CurrentProject.Connection
Set rsWell = CreateObject("ADODB.Recordset")


For CallCur = CallStr To CallEnd Step 1
WellName = objXLApp.Worksheets("Лист").Range("A" & CallCur).Value

rsWell.Open "ReportWell", con, adOpenDynamic, adLockOptimistic, adCmdTable
rsWell.AddNew
rsWell!WellName = WellName
rsWell.Update
Next CallCur

Set rsWell = Nothing
Set con = Nothing
objXLApp.Application.Quit
Set objXLApp = Nothing

[Konst_One]

Код: Выделить всё

rsWell!WellName =Mid$(1, WellName, rsWell.Fields("WellName").ActualSize)

писал по памяти, так что проверей сам