oggetti globlali

[chevvi78c]

io ho bisogno di usare un oggetto adodb.stream in modo globale come fare?

iio ho una sstruttura del genere:

sub ScriviFile(iniziofile, finefile, id, cartella, nome, puntolettura)
   if iniziofile<>puntolettura then
     bill=Reader.Read(iniziofile-puntolettura)
   end if
end sub
SUB Importa (xmlDoc, idcorso, tabella)
   if iniziofile=0 then puntolettura=0
      if iniziofile<puntolettura or iniziofile=0 then
          Set Reader=nothing
          Set Reader = Server.CreateObject("ADODB.Stream")
          Reader.Type = 1 
          Reader.Open 
          Reader.LoadFromFile(archivio)
          if iniziofile<>0 then
          bill=Reader.Read(abs(iniziofile))
       end if
   end if
   scrivifile InizioFile, FineFile, NewID, Cartella, NomeFile, puntolettura
   puntolettura=finefile
end sub


dim archivio
archivio= Path_Piattaforma & "import\"&request.querystring("file_n")
Importa xmlDoc, idcorso, tabella

il problema è che mi dice
Object required: 'Reader'
alla riga:

bill=Reader.Read(iniziofile-puntolettura)

come dikiarare che reader è globale?

[Sypher]

crealo prima...fuori dalle sub