for i = 0 to UBound()

Jag har följande kod:

'-----------------------------------------------------
' hämta lagID, lagNamn
'-----------------------------------------------------		
sql = "select * from dnLag where lagID = " & lagID & ""
set rs = dbCom.Execute(sql)
 if not (rs.BOF and rs.EOF) then
distrikt = rs.Fields("distrikt").Value
lagNamn = rs.Fields("lagNamn").Value
end if			
'-----------------------------------------------------
' hämta poängen
'-----------------------------------------------------
sql = "select * from dnLag, dnMatcher" _
& " where Resultat <> ''" _
& " and" _
& " ((bortalagID = " & lagID & " and lagID = hemmalagID)" _
& "  or" _
& "  (hemmalagID    = " & lagID & " and lagID = bortalagID))" _
& " order by dnMatcher.Omg"
set rs = dbCom.Execute(sql)
do while not rs.EOF
'-----------------------------------------------------
' lägg ihop den totala poängen
'-----------------------------------------------------		
if rs.Fields("bortalagID").Value = lagID then
ResTotal = ResTotal + rs.Fields("bortalagVP").Value
ImpFor = ImpFor + rs.fields("bortalagImp").Value
ImpMot = ImpMot + rs.Fields("hemmalagImp").Value	
else
ResTotal = ResTotal + rs.Fields("hemmalagVP").Value
ImpFor = ImpFor + rs.fields("hemmalagImp").Value
ImpMot = ImpMot + rs.Fields("bortalagImp").Value
end if

Den plockar ut lagens id, poäng mm och placerar varje information i ett object som heter lagObj Men det hör inte hit. Varje lag spelar ett visst antal omgångar, och jag vill plocka ut hemmalagVP el bortalagVP varje match laget spelat på något liknande sätt, kommer verkligen inte på hur jag ska göra....

Borde gå genom att skapa en dynamisk array() men nu återstår att se hur man gör det :)