Imports System.Data
Imports System.Data.oledb
......
Dim cnn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=D:\mjch2008\fsx.mdb")
cnn.Open()
Dim adt As New OleDbDataAdapter("select * from link order by tID asc", cnn)
Dim ds As New DataSet
adt.Fill(ds, "link")
DropDownList1.DataSource = ds
DropDownList1.DataMember = "link"
DropDownlist1.DataTextField="绑定的字段名"
DropDownList1.DataBind()
Imports System.Data.oledb
......
Dim cnn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=D:\mjch2008\fsx.mdb")
cnn.Open()
Dim adt As New OleDbDataAdapter("select * from link order by tID asc", cnn)
Dim ds As New DataSet
adt.Fill(ds, "link")
DropDownList1.DataSource = ds
DropDownList1.DataMember = "link"
DropDownlist1.DataTextField="绑定的字段名"
DropDownList1.DataBind()