Overfører en værdig til en SQL sætning.

Jeg sider og roder med en under forespørgsel og kan ikke få over en værdi.

Et udsnit ser sådan ud.
<%     

sub1SQL = "Select Maalsetningnr, Maalsetning from qryHPudskriftkrop where Politik='"&rs("Politik")&"' group by Maalsetning,Maalsetningnr order by Maalsetningnr Asc;"
SET sub1RS = Conn.Execute(sub1SQL)

Do while not sub1rs.EOF
       
        Maalsetning = sub1rs("Maalsetning")
        Maalsetningnr = sub1rs("Maalsetningnr")
%>   

      <font size="2"><p><ol start="<%=Maalsetningnr%>">
    <li><%=Maalsetning%>
<%

sub2SQL = "Select Maalnr, Maaltitel from qryHPudskriftkrop where Maalsetning='"&sub1rs("Maalsetning")&"' group by Maaltitel,Maalnr order by Maalnr Asc;"
response.write sub2SQL
SET sub2RS = Conn.Execute(sub2SQL)
Det drejer sig om kritieriet i sub2SQL Maalsetning. Hvis jeg skifter værdien ud med Maalsetningnr er der ingen problemer, men den vil overføre værdien fra Maalsetning som er en tekst. Hvad gør jeg galt.