Data reader closed option

<% 
    Conn.Open() 
    StrQry = "" 
    StrQry = "Select emp_number,emp_name + ' ' + emp_initial as name,emp_designation,Manpower_Division_ID from idpeapp.dbo.view_employee where emp_dept ='" & Session("Dept") & "' order by Manpower_Division_ID,emp_name" 
    CmdEmp.Connection = Conn 
    CmdEmp.CommandText = StrQry 
    RdrEmp = CmdEmp.ExecuteReader 
    Dim i As Integer = 1 
    If RdrEmp.HasRows Then 
        Dim row As Integer = 1 
        Dim col As Integer = 1 
        Dim Manpower_Division_ID As Integer = 1 
        While RdrEmp.Read
%>
<% 
        If Manpower_Division_ID <> RdrEmp("Manpower_Division_ID") Then 
%>
    <tr>
        <td align="left" colspan="18">
            Designers
        </td>
    </tr>
<% 
            i = 1 
        End If 
%>
    <tr>
        <td>
            <%Response.Write(i)%>
        </td>
    <td>
<%
        Response.Write(RdrEmp("name") & " (" & RdrEmp("emp_number") & ")")
%>
        </td>
<% 
        'Conn.Open() 
        StrQry = "" 
        StrQry = "Select Designation,DesigCode,Priority,Priority2,ProfRoleCode,ProfRole,DeptCode from Designation where DeptCode='" & Session("Dept") & "' order by Priority2" 
        CmdDesign.Connection = Conn 
        CmdDesign.CommandText = StrQry 
        RdrDesign = CmdDesign.ExecuteReader 
        If RdrDesign.HasRows Then 
            col = 1 
            While RdrDesign.Read
%>
                <td align="center" title="<%=RdrDesign("Designation")%>">
<%
                Response.Write(FindVal(RdrEmp("Emp_number"), RdrDesign("DesigCode")))
%>
        </td>
<% 
                col = col + 1 
            End While 
        End If 
%>
    </tr>
<% 
        row = row + 1 
        i = i + 1 
        Manpower_Division_ID = RdrEmp("Manpower_Division_ID") 
    End While 
End If 
%>
    <% %>