forespørgelsen er for kompleks?

har i nogensinde hørt denne fejlmeddelse: Forespørgelsen er for komplex!
_------------------------_
if not rs3.eof then
                                strSQL = \"Select * from stamfil where ID = \"&rs3(\"ID\")&\" \"


hvad kan jeg gøre?
                                rs3.movenext
                                do until rs3.eof
                                strSQL = strSQL & \"or ID = \"&rs3(\"ID\")&\" \"
                                rs3.movenext
                                loop
                                strSQL = strSQL & \"order by Virksomhedsnavn;\"
                                Set rs2 = Conn.Execute(strSQL)