Datagrid No Data Show While Sp Run Has Record

I do not know why drCertification.RecordsAffected return as -1. I tested session has value and I ran the sp , it has record. Thanks.

<asp:datagrid id="dgCertification" runat="server" Width="860px" GridLines="Horizontal" CellPadding="2" AlternatingItemStyle-BackColor="Linen" HeaderStyle-BackColor="LightGrey" HeaderStyle-Font-Bold="true" HeaderStyle-Wrap="false" AllowSorting="True" AutoGenerateColumns="False"
DataKeyField="ID" BorderWidth="1px" BorderColor="LightGray" BorderStyle="Ridge" ShowFooter="True">
<EditItemStyle BackColor=teal></EditItemStyle>
<AlternatingItemStyle BackColor="Linen"></AlternatingItemStyle>
<HeaderStyle Font-Bold="True" Wrap="False" BackColor="teal"></HeaderStyle>
<FooterStyle BackColor="LightGray"></FooterStyle>
<Columns>
<asp:TemplateColumn HeaderText="Certification" HeaderStyle-ForeColor="#0000ff">
<ItemTemplate>
<asp:Label id=lblCertification runat="server" Text='<%# Container.DataItem("Certification") %>'>
</asp:Label>
</ItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtCertification" MaxLength=50 runat="server" Width="75px"></asp:TextBox>
</FooterTemplate>
<EditItemTemplate>
<asp:TextBox id="txtCertificationE" MaxLength=50 runat="server" Text='<%# Container.DataItem("Certification")%>' Width="75px"></asp:TextBox>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Date Obtained" HeaderStyle-ForeColor="#0000ff">
<ItemTemplate>
<asp:Label id=lblCDateObtained runat="server" Text= '<%# DataBinder.Eval(Container, "DataItem.CDateObtained", "{0:d}") %>'>
</asp:Label>
</ItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtCDateObtained" runat="server" Width="75px"></asp:TextBox>
</FooterTemplate>
<EditItemTemplate>
<asp:TextBox id="txtCDateObtainedE" runat="server" Text= '<%# DataBinder.Eval(Container, "DataItem.CDateObtained", "{0:d}") %>' Width="75px"></asp:TextBox>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="Expiration Date" HeaderStyle-ForeColor="#0000ff">
<ItemTemplate>
<asp:Label id=lblCDateExpiration runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.CDateExpiration", "{0:d}") %>'>
</asp:Label>
</ItemTemplate>
<FooterTemplate>
<asp:TextBox id="txtCDateExpiration" runat="server" Width="75px"></asp:TextBox>
</FooterTemplate>
<EditItemTemplate>
<asp:TextBox id="txtCDateExpirationE" runat="server" Text='<%# DataBinder.Eval(Container, "DataItem.CDateExpiration", "{0:d}") %>' Width="75px"></asp:TextBox>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn>
<ItemTemplate>
<asp:LinkButton id="lnkbutEdit" runat="server" Text="<img border=0 src=../images/im_edit.gif alt=edit>" CommandName="Edit" CausesValidation="false"></asp:LinkButton>
</ItemTemplate>
<EditItemTemplate>
<asp:LinkButton id="lnkbutUpdate" ValidationGroup ="CDate" runat="server" Text="<img border=0 src=../images/im_update.gif alt=save/update>" CommandName="Update"></asp:LinkButton>
<asp:LinkButton id="lnkbutCancel" runat="server" Text="<img border=0 src=../images/im_cancel.gif alt=cancel>" CommandName="Cancel" CausesValidation="false"></asp:LinkButton>
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn>
<ItemStyle HorizontalAlign="Center"></ItemStyle>
<ItemTemplate>
<asp:LinkButton id="lnkbutDelete" runat="server" Text="<img border=0 src=../images/im_delete.gif alt=delete>" CommandName="Delete" CausesValidation="false"></asp:LinkButton>
</ItemTemplate>
<FooterStyle HorizontalAlign="Center"></FooterStyle>
<FooterTemplate>
<asp:Button id="btnAddRow" runat="server" Text="ADD" CommandName="AddANewRow" ValidationGroup ="CDate"></asp:Button>
</FooterTemplate>
</asp:TemplateColumn>
</Columns>
</asp:datagrid>
Public Sub LoadCertification()
'Dim myConn As New SqlConnection
Dim DBComm As New SqlCommand
Dim ds As New DataSet
If myConn.State = ConnectionState.Closed Then
myConn.ConnectionString = ConfigurationManager.ConnectionStrings("NurProfileString").ConnectionString
myConn.Open()
End If
Dim drCertification As SqlDataReader
If myConn.State = ConnectionState.Closed Then
myConn.Open()
End If
Try
DBComm.Connection = myConn
DBComm.CommandType = CommandType.StoredProcedure
DBComm.Parameters.Add("@EmpID", SqlDbType.Int).Value = Session("EmplNO")
'tblNurProfileCertification
'
http://www.shotdev.com/aspnet/aspnet-vbnet-gridview/aspnet-vbnet-gridview-databound/
DBComm.CommandText = "NurCerti_Log_Read" '
drCertification = DBComm.ExecuteReader()
dgCertification.DataSource = drCertification
dgCertification.DataBind()
drCertification.Close()
drCertification = Nothing
DBComm.Dispose()
Catch objError As Exception
Dim myarraylist As New ArrayList
myarraylist.Add("fliao@holyredeemer.com")
MailHelper.SendMailMessage("fliao@holyredeemer.com", myarraylist, "fliao@holyredeemer.com", "", "Annual HR Employee Log Error ", "Nursing Profile Error")
Exit Try
Finally
End Try
End Sub