Connection-close

Nu ser min kode således ud - er lavet i UltraDev, der bruger en central connection-fil, så derfor ser det måske lidt mystisk ud...
Mit spørgsmål: Hvad mere skal der stå for at connection bliver lukket nederst?

set rs1 = Server.CreateObject(\"ADODB.Recordset\")
rs1.ActiveConnection = MM_connb1903_STRING
rs1.Source = \"SELECT Username, Dato, Overskrift, Nyhedstext FROM trainernyt ORDER BY ID DESC\"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 3
rs1.Open()
rs1_numRows = 0
%><%
While ((Repeat2__numRows <> 0) AND (NOT rs1.EOF))
%>
                <tr>
                  <td width=\"6\">&nbsp;</td>
                  <td class=\"text\"><b><%=(rs1.Fields.Item(\"Overskrift\").Value)%> - <%=(rs1.Fields.Item(\"Dato\").Value)%> - <%=(rs1.Fields.Item(\"Username\").Value)%></b></td>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td width=\"6\">&nbsp;</td>
                  <td class=\"text\">
                    <p><%=(rs1.Fields.Item(\"Nyhedstext\").Value)%></p>
                  </td>
                  <td>&nbsp;</td>
                </tr>
                <tr>
                  <td colspan=\"3\" bgcolor=\"#003300\"><img src=\"transparent.gif\" width=\"1\" height=\"1\"></td>
                </tr>
                <%
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rs1.MoveNext()
Wend
%><%
rs1.Close()
%>