select แล้วให้มาแสดงผลบน Lable คับ ขอโค้ดเต็มคับ

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
	Dim objConn As New OleDbConnection
	Dim objCmd As New OleDbCommand
	Dim dtReader As OleDbDataReader	
	Dim strConnString,strSQL As String

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

		IF Not Page.IsPostBack() Then
			ViewData()
		End IF	
    End Sub

	Sub ViewData()
		'*** DataTable ***'
		Dim dtAdapter As OleDbDataAdapter
		Dim dt As New DataTable
		strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Request.QueryString("CustomerID") &"' "
		dtAdapter = New OleDbDataAdapter(strSQL, objConn)
		dtAdapter.Fill(dt)

		If dt.Rows.Count > 0 Then
			Me.txtCustomerID.Text = dt.Rows(0)("CustomerID")
			Me.txtName.Text = dt.Rows(0)("Name")
			Me.txtEmail.Text = dt.Rows(0)("Email")
			Me.txtCountryCode.Text = dt.Rows(0)("CountryCode")
			Me.txtBudget.Text = dt.Rows(0)("Budget")
			Me.txtUsed.Text = dt.Rows(0)("Used")
		End IF
	End Sub
    

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

</script>

    Private Sub textbx_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)Handles                    textbox.TextChanged
        lable1.text = textbox.text
    End Sub