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

iio ho una sstruttura del genere:

codice:
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:
codice:
bill=Reader.Read(iniziofile-puntolettura)
come dikiarare che reader è globale?