สวัสดีครับพี่ๆ ขอดูตัวอย่างการคิวรีข้อมูลจากฐานข้อมูล (ms Access) มาใส่ใน Dropdown list หน่อยครับ

	Function DropDownListDataTable()
		Dim objConn As OleDbConnection
		Dim dtAdapter As OleDbDataAdapter 
		Dim dt As New DataTable
			  
		Dim strConnString As String
		strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
		Server.MapPath("database/mydatabase.mdb")&";"
		objConn = New OleDbConnection(strConnString)
		objConn.Open()

		Dim strSQL As String		
		strSQL = "SELECT * FROM country"

		dtAdapter = New OleDbDataAdapter(strSQL, objConn)
		dtAdapter.Fill(dt)

		dtAdapter = Nothing
		objConn.Close()
		objConn = Nothing

		'*** DropDownlist ***'
		With Me.myDDL1
			.DataSource = dt
			.DataTextField = "CountryName"
			.DataValueField = "CountryCode"
			.DataBind()
		End With
		
		'*** Default Value ***'
		myDDL1.SelectedIndex = myDDL1.Items.IndexOf(myDDL1.Items.FindByValue("TH"))  '*** By DataValueField ***'
		'myDDL1.SelectedIndex = myDDL1.Items.IndexOf(myDDL1.Items.FindByText("Thailand"))  '*** By DataTextField ***'

	End Function