codice:
Sub SubOpenRS(oRs)
Set oRS = Server.CreateObject("ADODB.RecordSet")
End Sub


StrSQL = "SELECT * FROM tabella"
SubOpenRS(ObjRS)
ObjRS .Open StrSQL, ObjConn ,3,3

Do While Not ObjRS.EOF 
...
ObjRS.MoveNext 
Loop 
...
chiudo ObjRS