क्या आपने अपने रिकॉर्डसेट इंस्टेंस की खुली विधि का उपयोग करने का प्रयास किया था? शायद यह आपको एक और त्रुटि देगा जो अधिक सहायक होगी।
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
