Problem med rs.EOF og rs.BOF

Hvad er der lige galt med denne:

sql="SELECT KundeID From Kunder"
rs.Open Sql, Conn,1

Do While Not rs.EOF

KundeID = rs("KundeID")
   
    Set Conn2 = Server.CreateObject("ADODB.Connection")
    Set RS2 = Server.CreateObject("ADODB.Recordset")
    Conn2.Open Connection_string2

    sql2="SELECT ModulID From Modul Where KundeID = " & KundeID
response.write sql2
    rs2.Open Sql2, Conn2,1

    If rs.EOF and rs.BOF Then

    Response.write vbcrlf & "var Modul" & KundeID & " = new Array() ; " & vbcrlf
    Response.write "Modul1111" & KundeID & "[0] = new Entry(""1_1"","" [Opret Ny]                      "");"

    Else
    Response.write vbcrlf & "var Modul" & KundeID & " = new Array() ; " & vbcrlf
    Response.write "Modul22222" & KundeID & "[0] = new Entry(""1_1"","" [Opret Ny]                      "");"
        Response.write rs("ModulID")

    End If

    Rs2.Close
    Set sql2 = Nothing

rs.movenext
loop

Rs.Close
Set sql = Nothing


Jeg får denne fejl:
Item cannot be found in the collection corresponding to the requested name or ordinal

Og den henviser til følgende:
Response.write rs("ModulID")

Såvidt jeg kan se så liget meget om rs.EOF og rs.BOF så udskriver den altid noget. Jeg ved at den finder noget ved at der er noget i min database til 3 af mine værdier. Til de andre 10 er der intet og derfor skulle den gerne udskrive:
Response.write "Modul1111" & KundeID & "[0] = new Entry(""1_1"","" [Opret Ny] 

Hvad er der galt?