Плавающая ошибка

[romahjvf]

Здравствуйте.
Одна и та же ошибка появляется в разных частях кода.
После того как появляется ошибка, нажимаешь кнопку выполнения, ошибки нет и нормально выполняется код.
Я возможно написал запутанно, пишите я отвечу на Ваши вопросы.

Вот что пишет:

Run-time error '50290':
Application-defined or object-defined error

Пожалуйста подскажите что означает эта ошибка ?

[romahjvf]

Я заранее извиняюсь если такая тема уже есть.

[kuklp]

Т.е. Вы предлагаете нам погадать? Щас, пойду варить кофе.

[Vitalij]

Я в целом не программист, но я обошел эту ошибку так (не уверен, что правильно) - выделил красным цветом:
Sub fill_list(s As String)

Set rst = CurrentDb.QueryDefs(s).OpenRecordse t

crow = 6
j = newbook.ActiveSheet.UsedRange.Rows. Count
newbook.ActiveSheet.Rows(crow & ":" & j).ClearContents

Do While Not rst.EOF

k = rst.Fields.Count
For i = 1 To k
On Error Resume Next
newbook.ActiveSheet.Cells(crow, i + 1) = rst.Fields(i - 1)
If Err.Number = 50290 Then
i = i - 1
Err.Clear
End If

Next
crow = crow + 1
rst.MoveNext
Loop

newbook.ActiveSheet.Cells.EntireCol umn.AutoFit

End Sub