Rowset does not support scrolling backward

Question

I am trying to query a MySQL database with the below code:

\'declare the variables 
Dim Connection
Dim Recordset
Dim S         


        

Answer 1

adOpenDynamic is not declared in VBScript and therefore equals Empty, which gets converted to 0 when you assign the CursorType property.
0 is adOpenForwardOnly, and forward only does not support moving backwards, an ability the Find method wants.

You should replace adOpenDynamic with its literal value:

Recordset.CursorType = 2 'adOpenDynamic

To avoid this class of errors altogether, place Option Explicit as the first line of your script.