prima che divento scemo:

questa è il codice x creare un recordset disconnesso:

codice:
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205
Const adChapter = 136
Const adFileTime = 64
Const adPropVariant = 138
Const adVarNumeric = 139
Const adArray = &H2000


Set rs = Server.CreateObject("ADODB.Recordset")
Rs.Fields.Append "ID",adInteger,-1
Rs.Fields.Append "Nome",adVarChar,255
Rs.Fields.Append "Cognome",adVarChar,255
Rs.Open

'inserisco i dati
Rs.AddNew
Rs("ID")=1
Rs("Nome")="Pippo"
Rs("Cognome") = "Paperino"
Rs.Update()

Rs.Sort = "Nome Desc"'Ordinamento
If Rs.RecordCount > 0 then Rs.MoveFirst()

While Not Rs.EOF
Response.Write Rs("ID") & " " & Rs("Nome") & " " & Rs("Cognome") &"
"
Rs.MoveNext
Wend 

Rs.Close()
Set Rs = Nothing
fin qui tutto ok,ma se invece di crearlo "da nuovo" inserendo runtime i valori,io volessi che il recordset disconnesso contenga il risultato di una precedente query su un db...come caspita faccio?