Hvad er der galt??

Je har følgende:

Conn.Open DSN

Dim strNavne(3)
strNavne(0) = "Navn1"
strNavne(1) = "Navn2"
strNavne(2) = "Navn3"
strNavne(3) = "Navn4"
   
For i = 0 to UBound(strNavne)
   
strEnkeltSQL = "SELECT ugenr FROM uge WHERE spiller = '"& strNavne(i) &"' ORDER BY ugenr"
set rs = Conn.Execute(strEnkeltSQL)

gevtips13 = 0
gevtips12 = 0
gevjoker = 0
gevlotto = 0
gevonslotto = 0
gevsingle = 0
gevmulti = 0
gevsys = 0
       
While Not rs.EOF
   
'**************TIPS13*********************

strTips13 = "SELECT gevinst FROM tips13res WHERE ugenr = "& rs("ugenr") &""

Set rs2 = Conn.Execute(strTips13)
           
If rs2("gevinst") = 0 Then
           
  gevtips13 = gevtips13
           
Else
       
  gevtips13 = gevtips13 + rs2("gevinst")
           
End If

så kommer tips12 osv....

rs.MoveNext
Wend

Fejlen der kommer er:

error '80020009'
Exception occurred.

/hojre.asp, line 47

Linie 47 er: If rs2("gevinst") = 0 Then