Errore "Eccezione" su confronto (L'errore dell'anno!)

[pictor]

Ho del codice (molto brutto) per stampare un Menu con i SottoMenu che mi sta dando dei problemi assurdi.
Funzionerebbe tutto ma mi dà errore sulla riga 62 (e che ve frega? ) quando, al Loop While faccio il confronto tra Rs2("IdCmMenu") e PrevMenu.

Mi dice "Eccezione" e non restituisce nessun altro messaggio di errore. Non specifica niente.
Se lo stesso confronto lo faccio in un IF funziona tutto.
Ho già provato a stampare i valori e sono sempre uguali o diversi, ma sempre numerici, e mai NULL.

Se scommento l' "On Error Resume Next" funziona tutto correttamente. Se la commento mi ridà errore. :master:

IF not(Rs2.Bof and Rs2.Eof) Then
    %><ul><%
    Do While not Rs2.Eof
        %>
            [*][url="pagina.asp?idl=<%= Linguascelta %>&amp;idm=<%= Rs2("]&amp;ids=0&amp;cod=<%'= Trim(ContaMenu) %>&amp;cod2=0&amp;cod3=0" title="<%= "link: " & caratteriW3c(Rs2("Menu")) %>"><%= caratteriW3c(Rs2("Menu")) %>[/url]
            <%

            PrevMenu = Rs2("IdCmMenu")
            'Controllo se il record descrive un sottomenu
            If Not IsNull(Rs2("IdCmSottoMenu")) Then
                %><ul><%
                'Stampo tutti i sottomenu del menu attuale
                ' finchè non c'è una variazione del menu (o non è finito il record)
                Do
                    'Se non e' NULL stampo il sottomenu
                    If Not IsNull(Rs2("IdCmSottomenu")) Then 
                    %>
                        [*]
                            [url="pagina.asp"]<%= Rs2("Sottomenu") %>[/url]
                        
                    <%
                    Else
                    'Altrimenti abbiamo un nuovo menu e dobbiamo uscire dal ciclo
                        Rs2.MovePrevious
                        Exit Do
                    End If
                    'Response.Write "Sottomenu: " & Rs2("IdCmSottomenu") & "-" & Rs2("Sottmenu")
                    PrevMenu = Rs2("IdCmMenu")
                    If Not Rs2.Eof Then
                        Rs2.Movenext
                    End If
                    'Response.Write Rs2("IdCmMenu") & "-=-" & PrevMenu
                    'On Error Resume Next
                Loop While Rs2("IdCmMenu") = PrevMenu
                    
                If Err.number <> 0 Then
                Response.Write ""
                '    Response.Write "[/list]

" &Rs2("IdCmMenu") & "-=-" & PrevMenu
                '    Response.End
                End If
'                Response.Write "
Menu: " & Rs2("IdCmMenu") & "-" & Rs2("menu")
                %>[/list]<%
            End If
            %>
            
        <%
        If Not Rs2.Eof Then
            Rs2.MoveNext
            PrevMenu = Rs2("IdCmMenu")
        End If
    Loop
    %>[/list]<%
End IF
Rs2.close 

Le ho provate tutte ma non riesco a capire cosa sia.

Non ha senso!!

Voi avete idea di che cosa possa essere?

Grazie mille... sono impelagato