Хочу из AccessДБ перенести значения в Excelтаблицу

Set rst = New ADODB.Recordset
Set obj = GetObject("H:\excel_probe1.xls")
rst.Open "SELECT * FROM Inhalt", CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic

i = 1
j = 2

Do While Not rst.EOF
st = 0
Do While st <> 1
st = rst![PE_ID]
If st = 1 Then
obj.ActiveSheet.Cells(1, i).Value = rst![VIAs]
obj.ActiveSheet.Cells(j, i).Value = rst![Inhalt]
Else
obj.ActiveSheet.Cells(j, i).Value = rst![Inhalt]
End If
j = j + 1
rst.MoveNext
st = rst![PE_ID]
Loop
i = i + 1
j = 2
Loop

rst.Close
Set rst = Nothing

Получаю сообщение :

3021
Ether BOF or EOF is True, or the current record has been deleted.Requisted operation requires acurrend record.

Немогу понять где ошибка может кто знает в чeм проблема.

Ты чего балуешься? я дочитать не успел...
а почему ODBC? может уж тогда ADO?

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

rst.MoveNext
st = rst![PE_ID]
Loop

т.к Вы делаете попытку MoveNext, курсор выходит за пределы рекордсета т.е. EOF = true
а затем пытаетесь получить значение поля из рекордсета, а значения нет, т.к. нет текущей строки.

попробуйте так

Do While Not rst.EOF st = 0 Do While st <> 1 and Not rst.EOF st = rst![PE_ID] If st = 1 Then obj.ActiveSheet.Cells(1, i).Value = rst![VIAs] obj.ActiveSheet.Cells(j, i).Value = rst![Inhalt] Else obj.ActiveSheet.Cells(j, i).Value = rst![Inhalt] End If j = j + 1 rst.MoveNext if Not rst.EOF then st = rst![PE_ID] Loop i = i + 1 j = 2 Loop