01.Dim objConn As OleDbConnection
02.Dim dtAdapter As OleDbDataAdapter
03.Dim dt As New DataTable
04.
05.Dim strConnString As String
06.strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
07.Server.MapPath("database/mydatabase.mdb")&";"
08.objConn = New OleDbConnection(strConnString)
09.objConn.Open()
10.
11.Dim strSQL As String
12.strSQL = "SELECT * FROM country"
13.
14.dtAdapter = New OleDbDataAdapter(strSQL, objConn)
15.dtAdapter.Fill(dt)
16.
17.dtAdapter = Nothing
18.objConn.Close()
19.objConn = Nothing
20.
21.
22.With Me.myDDL1
23. .DataSource = dt
24. .DataTextField = "CountryName"
25. .DataValueField = "CountryCode"
26. .DataBind()
27.End With
28.
29.
30.myDDL1.SelectedIndex = myDDL1.Items.IndexOf(myDDL1.Items.FindByValue("TH"))
31.
