[randomize]

Da:

Dim conn...
blabla

Dim RS
Set RS = Server.CreateObject ("ADODB.Recordset")

RS.Open "SELECT blabla", conn

...
RS.Close
RS.Open "bla", conn
...

... und so weiter wie oben beschrieben.