vbaスクリプトの実行中に不特定のランタイムエラーが発生しました

RecordSetインスタンスのopenメソッドを使用しようとしましたか？多分それはあなたにもっと役立つであろう別のエラーを与えるでしょう。

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