passare variabile a classe

[beppenet]

Ciao raga, ho la seguente funzione (è la prima volta che uso classi) :

Class cl_ind_servizio()
  'Proprietà
  Public ind_id(90), ind_nome(90), cont_valore(90), cont_numero(90), cont_anno(90), cont_fonte(90)
  'Costruttore
  Private Sub Class_Initialize()
  arr = 0
  sqlString = "SELECT * FROM ind_servizio ORDER BY id"
  SET RS_sv = con.Execute( sqlString )
  	DO Until (RS_sv.EOF)
		ind_id(arr)			= RS_sv( "id_indicatore" )
		ind_nome(arr) 		= RS_sv( "ind_nome" )
		cont_valore(arr)	= RS_sv( "cont_valore" )
		cont_numero(arr) 	= RS_sv( "cont_numero" )
		cont_anno(arr) 		= RS_sv( "cont_anno" )
		cont_fonte(arr) 	= RS_sv( "cont_fonte" )
		arr = arr + 1 
	
	RS_sv.MoveNext
	Loop
	RS_sv.close
	Set RS_sv = nothing
  End Sub
  'distruttore
  Private Sub Class_Terminate()
    'Response.Write "Sto distruggendo l'istanza dell'oggetto
"
  End Sub
End Class

richiamo la classe nella pagina così: <% Set visualizza = New cl_ind_servizio() %>

come fare per passare una variabile (idserv) fare una cosa del genere:
sqlString = "SELECT * FROM ind_servizio WHERE id_servizio="&idserv&" ORDER BY id"

[optime]

le variabili si passano alle classi tramite le property