dim str as string="provider=microsoft.jet.oledb.4.0;data source=盘符:\*.mdb"
dim sql as string="select * from 表名"
dim rd as dataset=new dataset
dim ad as oledbdatadapter=new oledbdatadapter(sql,str)
ad.fill(ds,"表名")
datagrid1.datasource=ds
datagrid1.bind()