Er det en rigtig database forespørgsel.

Hej eksperter. Jeg har fået konstrueret følgende database forespørgsel, men tror egentlig ikke den er rigtig. Jeg tænker på om det er rigtigt at jeg oprette forbindelsen til databasen to gange. Jeg kan ikke få det til at virke på anden måde. Grunden til jeg spørger er at jeg skal have 2 yderligere under forspørgsler sat ind i hver forespørgsel, og nu synes jeg det bliver lige lovlig abstrakt. Jeg bringer her min kode.
<select size="1" name="HLedelsesansvar" style="font-size: 8 pt" tabindex="1">
        <option value="<%=HLedelsesansvar%>"><%=HLedelsesansvarNavn%></option>
        <%

Set subrs = Server.CreateObject("ADODB.RecordSet")
substrSQL = "Select Navn, Initialer from qryMedarbejder where LokId="&request("LokId")&" AND Leder=1 AND EjAnsat =0"
substrDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../fpdb/Miljodatabase.mdb")
subrs.Open substrSQL, substrDSN, 1

        Do while not subrs.eof
        Navn = subrs("Navn")
        Initialer = subrs("Initialer")
%>

        <option value="<%=Initialer%>"><%=Navn%></option>
<%

subrs.movenext
loop
subrs.close
%>


        </select></td>
        <td width="20%" colspan="2"><select size="1" name="HAnsvar"  style="font-size: 8 pt" tabindex="2">
      <option value="<%=HAnsvar%>"><%=HAnsvarNavn%></option>
<%

Set subars = Server.CreateObject("ADODB.RecordSet")
substrSQL = "Select Navn, Initialer from qryMedarbejder where LokId="&request("LokId")&" AND EjAnsat =0"
subastrDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../fpdb/Miljodatabase.mdb")
subars.Open substrSQL, substrDSN, 1

        Do while not subars.eof
        Navn = subars("Navn")
        Initialer = subars("Initialer")
%>

        <option value="<%=Initialer%>"><%=Navn%></option>
<%

subars.movenext
loop
subars.close
%>
</select>