dim de as dao.dbengine=new dao.dbengine()
dim mydb as dao.database
dim myws as dao.workspace
dim myrec as dao.recordset
dim mysql as string
public function opendb() as short
dim my dbstr as string
dbstr=application.startuppath&"depot.mdb"
myws=de.workspaces(0)
mydb=myws.opendatabase(dbstr,false,false)'打开数据库存放与mydb
dbstr="select * from work"
myrec=mydb.openrecordset(dbstr,dao.recordsettypeenum.dbopendynaset)
end fuction