option selected i select menu

Har lige et problem med nedenstående select menu. Intet problem i at få vist de rigtige options i selectmenuen fra databasen. Det går også fint med at gemme hans valg i databasen. Problemet opstår når jeg henter select menuen frem igen, så skal hans valg være selected, men han skal naturligvis også kunne vælge en anden option 

kvali = recordSet("Kvalifikation")

<SELECT NAME="kvalifikation1" onChange="select_kvalifikation1(this.selectedIndex)">
<OPTION></OPTION>
<%
Dim recordSet1
Dim strSQL1

set recordSet1 = server.CreateObject("ADODB.Recordset")

strSQL1 = "SELECT Kvalid, Kvalifikation FROM Kva_stamdata ORDER BY Kvalifikation"
set recordSet1 = forbindelse.Execute (strSQL1)

do until recordSet1.eof

Response.Write "<option value=" & recordSet1("Kvalid") & ">" & recordSet1("Kvalifikation") & "</option>"

recordSet1.movenext
loop
recordSet1.Close
Set recordSet1 = Nothing

%>
</SELECT>