Skriva ut array inifrån en annan

Du, jag förstår ingenting. Kan du visa lite klassdefinitioner och annan relevant kod.

Class Team

Public AllOmgVP

Private Sub Class_Initialize()
AllOmgVP = Array()
End Sub

Private Sub Class_Terminate()
End Sub

Public Sub GetInfo(LagID)

Dim SQL, rs
Dim opponentID, i, inList
Dim omgVP
Dim omradeNR			
SQL = " SELECT * FROM AnLag WHERE AnLagID = " & lagID & " "
set rs = dbCom.Execute(SQL)
If not (rs.BOF and rs.EOF) then
lagNamn = rs("AnKlubb") & " - " & rs("AnKontakt")
omradeNR = rs("AnOmrade")
End If
				
SQL = " SELECT * FROM omrade WHERE omradeID = " & omradeNR & " "
set rs = dbCom.Execute(SQL)
If not (rs.BOF and rs.EOF) then
omradeNamn = rs("omradeNamn")			
End If
'-----------------------------------------------------
' hämta Matcherna
'-----------------------------------------------------
SQL = " SELECT * FROM AnLag, AnMatcher" _
& " WHERE ((AnBortaLag = " & lagID & " AND AnLagID = AnHemmaLag)" _
& " OR (AnHemmaLag    = " & lagID & " AND AnLagID = AnBortaLag))"
set rs = dbCom.Execute(SQL)
do while not rs.EOF
'-----------------------------------------------------
' Hämta poängen för varje omgång
'-----------------------------------------------------
if rs("AnHemmaLag") = lagID then
opponentID = rs("AnBortaLag")
omgVP = rs("AnHemmaVP")
else
opponentID = rs("AnHemmaLag")
omgVP = rs("AnBortaVP")
end if

Typ nåt sådant ?

Nu vet jag iofs inte om jag förstått det hela rätt och har missat något? Har jag sparat AllOmgVP = Array() på någe tokigt ställe så jag inte kommer åt det ?

Jag förstår fortfarande ingenting.

Är allomgVP den array du talar om? Vad vill du lagra i den?

allOmgVP = array()

innebär bara att variablen får subtypen array men inget mer.