Id'erne fra main til at stå som underpunkter til Id'erne fra menu

Hej Alle
Jeg vil gerne have printet nogle Id'er ud fra hhv. tabellen menu og main. Jeg prøver at få Id'erne fra main til at stå som nogle underpunkter til Id'erne fra menu.
Koden ser sådan ud:
strSQL = "Select Id from Menu order by Id asc"
    Set rs = Conn.Execute(strSQL)   
   
    If Not (rs.BOF Or rs.EOF) Then
        Do
        dim n
        n = rs("Id")
            response.write n&"<br>"
           
            strSQL = "Select Id, id_main from main where id_main ="& n
            Set rs = Conn.Execute(strSQL)
           
            If Not (rs.BOF Or rs.EOF) Then
            do
            response.write rs("Id")
            rs.MoveNext
            Loop While Not rs.EOF
            end if
        rs.MoveNext
        Loop While Not rs.EOF
       
        else
' hvis databasen er tom så
        Response.Write "<tr><td>&nbsp</td><td>basen er tom</td></tr>"       
        end if

Jeg får en fejl, der hedder:
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Hvad mon der sker???