oggetto passato ad una sub

[crizio5]

Salve,
innanzi tutto volevo saepre se è possibile passare un oggetto ad una subroutine. Se è possibile volevo sapere se la sintassi di seguito riportata poteva andare.
Grazie anticipatamente

set rsNome= Server.CreateObject("ADODB.Recordset")


CALL chiudiRs rsNome

sub chiudiRs(objrs)
if objrs.state <> 0 then
objrs.close
end if
set objrs = nothing
end sub

[optime]

provato lo hai?

[Alethesnake]

io passerei l'oggetto per riferimento, quindi:

sub chiudiRs(ByRef objrs)

http://www.developerfusion.co.uk/show/1763/3/

[crizio5]

ops
sbagliavo la sintassi e mi andava in errore. Infatti con la chiamata(CALL) ci vogliono le parentesi

così è ok

CALL chiudiRs (rsNome)