可以这样:
dim strconn as string="provider=microsoft.jet.oledb.4.0;data source=数据库路径"
dim strsql as string="select * from 表名"
dim objconn as new oledbconnection(strconn)
dim objdapter as new oledbdataadapter(strsql,objconn)
dim objds as new dataset()
objconn.open()
objdapter.fill(objds,"表名")
objconn.close()
你可有直接操纵dataset 了