Função de um recordset desconectado

' Efetuar conexão e executar a query desejada com um recordset desconectado

Ex.: set oUser = GetRecordset("select * from usuarios")

Function GetRecordSet(byval strSQL)
 Set con = Server.CreateObject("ADODB.Connection")
 con.Open <string de conexão>

 Set recset = Server.CreateObject("ADODB.Recordset")
 recset.CursorLocation = 3
 recset.Open strSQL, con, 0, 4

 ' Disconecta recordset.
 Set recset.ActiveConnection = Nothing
 ' -- retorna recordset
 Set GetRecordSet = recset
End Function

Esta matéria foi postada originalmente no ASP4Developers por César M. Conceição (site), que na época era "Analista / Programador Pleno, mais de 4 anos de experiência no desenvolvimento de sistemas online.(HTML/XHTML/ASP/JAVASCRIPT/DHTML/MS SQL/FIREBIRD/INTERBASE/ACCESS)". Hoje, vai saber...