由于 没有VS2010,只能简单写几句代码。用ODBC连接数据比较方便,你首先要引用system.data和system.data.odbc
dim cn as odbcconnection
cn=new odbcconnection("driver={microsoft access driver (*.mdb)};uid=admin;pwd=;dbq=数据库路径\数据库名.mdb")
dim tsql as string
tsql="select username from [user]"
dim od as odbcdataadapter
dim ds as dataset=new dataset
od=new odbcdataadapter(tsql,cn)
od.fill(ds)
listbox.items.clear
for i=0 to ds.tables(0).rows.count-1
listbox.items.add(ds.tables(0).rows(i),i)
next i
大概是这样的,希望能对你有所帮助。