Lỗi thời gian chạy không xác định trong khi thực thi tập lệnh vba

Bạn đã thử sử dụng phương thức mở của phiên bản RecordSet của mình chưa? Có thể nó sẽ cung cấp cho bạn một lỗi khác hữu ích hơn.

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