Query annidate

[Gio&Ste]

Sto facendo un menu dinamico, che contiene anche un sottomenu, quello di seguito è il codice che ho scritto e l'errore che mi viene fuori indica la linea segnata in rosso, cosa sto sbagliando? C'è un altro modo per fare questa cosa?

Tipo di errore:
Microsoft JET Database Engine (0x80040E07)
Tipi di dati non corrispondenti nell'espressione criterio.

                <% Set objRs = Server.CreateObject("ADODB.Recordset")
                Sql = "SELECT * FROM indice_s"
                objRs.Open Sql, objConn
                do until objRs.EOF %>
                <li class="left-nav-group">[url="default.asp?Id_Servizio=<%=objRs("]" <% if Id_Servizio=objRs("Id_Servizio") Then%>class="selected"<% End if %>><%=objRs("Nome_Servizio")%>[/url]
                            <% if Id_Servizio<>"" Then %>
                            <%    Set objRset = Server.CreateObject("ADODB.Recordset")
                                Sql1 = "SELECT * FROM indice_sottos WHERE Id_Servizio=" & Id_Servizio & " ORDER BY Nome_sottos"
                                [COLOR=red]objRset.Open Sql1, objConn[/COLOR]
                                do until objRset.EOF %>
                            [*][url="servizi.asp?Id_Servizio=<%=objRset("]&amp;Id_sottos=<%=objRset("Id_sottos")%>"><%=objRet("Nome_sottos") %>[/url]
                            <%    objRset.MoveNext 
                                loop 
                                objRset.Close
                                set objRset = Nothing
                                End if
                            %>
                        
                <%    objRs.MoveNext 
                    loop 
                    objRs.Close
                    set objRS = Nothing
                %>