asp.net - xxx が宣言されていないなどのエラーが発生しています。保護レベルが原因でアクセスできない場合があります

Question

vb.net .bind データセット値を gridview に使用します。vb.net で smtpclient を使用して、このグリッドビューを Outlook に送信します。gridview コントロールでデータをバインドできます。sendmail関数を呼び出すと、コードで上記のようなエラーが表示されます。

GridView 設計コード

<asp:GridView ID="gdv2" runat ="server" width="100%" autogeneratedcolumn="false">
 <columns>
 <asp:BoundField HeaderText="TRREQNO" DataField="TRREQNO" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="From" DataField="ename" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Departure Date" DataField="departuredate" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Return Date" DataField="returndate" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Passport" DataField="havepassport" ItemStyle-Width="50"/>
  <asp:BoundField HeaderText="Passport Number" DataField="passportnumber" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Travel Type" DataField="traveltype" ItemStyle-Width="50"/>
 <asp:BoundField HeaderText="Additional Passengers" DataField="noofcopassenger" ItemStyle-Width="50"/>
 </columns>
</asp:gridview>

コード ビハインド ファイル .aspx.vb

 Dim ds_get As New TR_REQTableAdapters.proc_bindingridTableAdapter
 Dim dt_get As TR_REQ.proc_bindingridDataTable = ds_get.GetData(s1)
 gdv2.datasource = dt_get
 gdv2.databind()

  SendHTMLMail()

Public Sub SendHTMLMail()
    Dim Msg As New MailMessage()
    Dim fromMail As New MailAddress("xxx")
    ' Sender e-mail address.
    Msg.From = fromMail
    ' Recipient e-mail address.
    Msg.[To].Add(New MailAddress("xxx"))
    ' Subject of e-mail
    Msg.Subject = "Send Gridivew in EMail"
    Msg.Body += "Please check below data <br/><br/>"
    Msg.Body += GetGridviewData(gdv2)
    Msg.IsBodyHtml = True
    Dim sSmtpServer As String = ""
    sSmtpServer = "10.200.4.59"
    Dim a As New SmtpClient()
    a.Host = sSmtpServer
    a.EnableSsl = True
    a.Send(Msg)
End Sub

Public Function GetGridviewData(ByVal gv As GridView) As String
    Dim strBuilder As New StringBuilder()
    Dim strWriter As New StringWriter(strBuilder)
    Dim htw As New HtmlTextWriter(strWriter)
    gv.RenderControl(htw)
    Return strBuilder.ToString()
End Function

4 行目の最後の関数で、上記のエラーが発生しています。の解き方？