การนำข้อมูลใน1 field มาแสดงใน list Combobox จะนำข้อมูลของ field หนึ่ง field ใน database มาแสดงเป็น list ใน combo box ต้องทำไงอะครับ

		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 ***'