I think I have something for you, if I understand your problem right. The Execute statement. Check it out at:
For i=1 to 5
str = "Set objRs" & i & " = Server.CreateObject(" & chr(34) & "ADODB.Recordset" & chr(34) & ")"
This will create objRs1 through objRs5.
Not sure why you would want to do something like this, but in any case I think your question was about assigning to a variable name created dynamically.