4youу меня на .MoveNext выдает еррор: object invalid or no longer set. Почему?
Скорее всего просто нет следующей записи.
4you
With MyRec

If .EOF Then
NumberOfSQL = 0
Else
.MoveLast
NumberOfSQL = .RecordCount
.MoveFirst
End If

Sheets("Лист1").Select
Range("A1").Select

For i = 1 To NumberOfSQL
ActiveCell.Value = .Fields(0).Value
ActiveCell.Offset(0, 1) = .Fields(1).Value
.MoveNext
ActiveCell.Offset(1, 0).Select
Next i

End With



Я бы предложил Вам что-нибудь типо:
'Проверяем, а есть ли записи, если есть ставим курсор на первую
If not (MyRec.EOF and MyRec.BOF) Then MyRec.MoveFirst


Dim t as Integer
t=1
'Цикл по записям, пока не достигнем конца
Do Until MyRec.EOF
'Пишете значения в соответствующие ячейки
Лист1.Cells(t, 1).Value=MyRec.Fields(0).Value
Лист1.Cells(t, 2).Value=MyRec.Fields(1).Value

MyRec.MoveNext
t=t+1
Loop

Можете и имена столбцов вставить:
MyRec.Fields(0).Name



Возможно чего-то в вопросе не понял, но как-то так