Неуточнена грешка по време на изпълнение при изпълнение на vba скрипт

Опитвали ли сте да използвате отворения метод на вашия екземпляр RecordSet? Може би ще ви даде друга грешка, която ще бъде по-полезна.

Dim connection As New ADODB.connection
Dim rst As New ADODB.Recordset
Dim query As String

connection.ConnectionString = CONNECTION_STRING
connection.Open

rst.Open query, connection, adOpenKeyset, adLockOptimistic

do while not rst.EOF
   rst.MoveNext
loop

connection.Close