ค้นหาข้อมูล ในอีก ฟิว แล้วแสดงเป็น MsgBox ผมคิดว่าง่ายแต่จะครบวันล่ะทำยังไม่ได้เลย ช่วยหน่อยนะครับ

	Sub ViewData()
		'*** DataTable ***'
		Dim dtAdapter As MySqlDataAdapter 
		Dim dt As New DataTable
		strSQL = "SELECT * FROM customer WHERE CustomerID = '"& Request.QueryString("CustomerID") &"' "	
		dtAdapter = New MySqlDataAdapter(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