Første værdi i array kommer ikke med

Mit problem med nedenstående kode er, at den første værdi i RS1("farver") ikke bliver "checked".... Hvorfor ikke????

While Not RS3.EOF
Dim arrFarver
arrFarver = split(RS1("farver"),",")
For I = 1 to Ubound(arrFarver)
    If RS3("id") = arrFarver(I) Then
        checked = "checked"
    End If
Next
    Response.Write "<td width='130'>"
        Response.Write "<Input type='checkbox' name='farve" & RS3("id") & "' value='1' " & checked & ">"
        Response.Write "<img src='../farver/" & RS3("id") & ".gif'> " & RS3("farve")
    Response.Write "</td>"
    if (n/3) = int(n/3) then
        Response.Write "</tr>"
        Response.Write "<tr>"
    End if
    n=n+1
    RS3.MoveNext
    checked = ""
Wend