โชว์ข้อมูลลงใน master page ไม่ได้ค่ะ รบกวนช่วยแนะนำหน่อยค่ะ

<%@ Page Title="" Language="VB" MasterPageFile="~/MasterPage.master" AutoEventWireup="false" CodeFile="AspNetAccessDeleteRecord.aspx.vb" Inherits="AspNetAccessDeleteRecord" %>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<script runat="server">

	Dim objConn As OleDbConnection
	Dim objCmd As OleDbCommand

    Sub Page_Load(sender As Object, e As EventArgs)
		Dim strConnString As String
		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("database/mydatabase.mdb")&";Jet OLEDB:Database Password=;"
		objConn = New OleDbConnection(strConnString)
		objConn.Open()

		BindData()
    End Sub

	Sub BindData()
		Dim strSQL As String
		strSQL = "SELECT * FROM customer"

		Dim dtReader As OleDbDataReader
		objCmd = New OleDbCommand(strSQL, objConn)
		dtReader = objCmd.ExecuteReader()
		
		'*** BindData to Repeater ***'
		myRepeater.DataSource = dtReader
		myRepeater.DataBind()

		dtReader.Close()
		dtReader = Nothing

	End Sub

	Sub Page_UnLoad()
		objConn.Close()
		objConn = Nothing
	End Sub

    Sub myRepeater_ItemDataBound(ByVal sender As Object, ByVal e As RepeaterItemEventArgs) Handles myRepeater.ItemDataBound

			'*** CustomerID ***'
			Dim lblCustomerID As Label = CType(e.Item.FindControl("lblCustomerID"),Label)
			IF Not IsNothing(lblCustomerID) Then
				lblCustomerID.Text = e.Item.DataItem("CustomerID")
			End IF

			'*** Name ***'
			Dim lblName As Label = CType(e.Item.FindControl("lblName"),Label)
			IF Not IsNothing(lblName) Then
				lblName.Text = e.Item.DataItem("Name")
			End IF

			'*** Email ***'
			Dim lblEmail As Label = CType(e.Item.FindControl("lblEmail"),Label)
			IF Not IsNothing(lblEmail) Then
				lblEmail.Text = e.Item.DataItem("Email")
			End IF

			'*** CountryCode ***'
			Dim lblCountryCode As Label = CType(e.Item.FindControl("lblCountryCode"),Label)
			IF Not IsNothing(lblCountryCode) Then
				lblCountryCode.Text = e.Item.DataItem("CountryCode")
			End IF

			'*** Budget ***'
			Dim lblBudget As Label = CType(e.Item.FindControl("lblBudget"),Label)
			IF Not IsNothing(lblBudget) Then
				lblBudget.Text = e.Item.DataItem("Budget")
			End IF

			'*** Used ***'
			Dim lblUsed As Label = CType(e.Item.FindControl("lblUsed"),Label)
			IF Not IsNothing(lblUsed) Then
				lblUsed.Text = e.Item.DataItem("Used")
			End IF

			'*** Hyperlink ***'
			Dim hplEdit As Hyperlink = CType(e.Item.FindControl("hplEdit"),Hyperlink)
			IF Not IsNothing(hplEdit) Then
				hplEdit.Text = "Edit"
				hplEdit.NavigateUrl = "AspNetAccessEditForm.aspx?CustomerID=" & e.Item.DataItem("CustomerID")
			End IF
			
    End Sub

</script>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">

   <form id="form1" runat="server">
    <asp:Repeater id="myRepeater" runat="server">
	<HeaderTemplate>
		<table border="1">
			<tr>
				<th>CustomerID</th>
				<th>Name</th>
				<th>Email</th>
				<th>CountryCode</th>
				<th>Budget</th>
				<th>Used</th>
				<th>Edit</th>
			</tr>
	</HeaderTemplate>
	<ItemTemplate>
		<tr>
			<td align="center"><asp:Label id="lblCustomerID" runat="server"></asp:Label></td>
			<td><asp:Label id="lblName" runat="server"></asp:Label></td>
			<td><asp:Label id="lblEmail" runat="server"></asp:Label></td>
			<td align="center"><asp:Label id="lblCountryCode" runat="server"></asp:Label></td>
			<td align="right"><asp:Label id="lblBudget" runat="server"></asp:Label></td>
			<td align="right"><asp:Label id="lblUsed" runat="server"></asp:Label></td>
			<td align="right"><asp:Hyperlink id="hplEdit" runat="server"></asp:Hyperlink></td>
		</tr>			
	</ItemTemplate>
	</asp:Repeater>
	</form>
</asp:Content>