Select option fra 2 tabeller

Hvordan får jeg indsat værdier i select - option fra tabel nr.2

Når jeg skal oprette en ny kasse skal jeg i formularen kunne vælge henholdsvis afdeling og klassetrin. Det går også godt nok med afdeling men jeg får ikke værdierne fra tabellen klassetrin med over i min select for klassetrin.


Min SQL-kode ser sådan ud:

SQL = "SELECT Afdeling.Afd_ID, Afdeling.Afdeling FROM Afdeling  ORDER BY Afdeling"
Set Resultat = Connect.Execute(SQL)

SQL2 = "SELECT Klassetrin.Klassetrin_ID, Klassetrin.Klassetrin FROM Klassetrin ORDER BY Klassetrin"
Set Resultat2 = Connect.Execute(SQL2)


Jeg henter værdier sådan:

<tr><td>*</td>
<td>Afdeling:</td>
<td>
<select name="Afdeling">
<%
do until Resultat.EOF

Response.Write "<option value=""" & Resultat("Afd_ID") & """>" & Resultat("Afdeling") & "</option>"
Response.Write "</option>"

Resultat.MoveNext
loop
%>
</select></td></tr>


<tr><td></td>
<td>Klassetrin:</td>
<td>
<select name="Klassetrin">
<%
do until Resultat.EOF

Response.Write "<option value=""" & Resultat2("Klassetrin_ID") & """>" & Resultat2("klassetrin") & "</option>"
Response.Write "</option>"

Resultat.MoveNext
loop
%>
</select></td></tr>

Er der en der kan se, hvad jeg gør forkert?