Добрый день! Вы не подскажете у меня не работает импорт данных через RECORDSET в Excel 2003 выдается ошибка 1004 Application-defined or object-defined error
код программы

Function Result(SqlStr As String, RetStr As String, HLCell As Range) As String
Dim R As Range
Dim DB As ADODB.Connection
Dim rstRecordset As ADODB.Recordset
Dim o As Excel.Worksheet


Set o = Excel.Worksheets("D")


Set DB = New ADODB.Connection
DB.Open Connect_String


Set R = HLCell
Set rstRecordset = New ADODB.Recordset

rstRecordset.Open SqlStr, DB, adOpenForwardOnly, adLockReadOnly

If Not rstRecordset.EOF Then
i = 1
rstRecordset.MoveFirst
Do While Not rstRecordset.EOF
For j = 1 To rstRecordset.Fields.Count
o.Cells(i, j).Value = rstRecordset.Fields(j - 1).Value ' в этом месте вылетает по ошибке
Next j
i = i + 1
rstRecordset.MoveNext
Loop
End If



Result = RetStr

Set rstRecordset = Nothing

End Function