Module 声明
Friend DAODBEngine_definst As New DAO.DBEngine
Public oXL As Microsoft.Office.Interop.Excel.Application
Public oWB As Microsoft.Office.Interop.Excel.Workbook
Public oSheet As Microsoft.Office.Interop.Excel.Worksheet
Public DBunbten As dao.Database
Public rstljdj, rstweather, rstjswires, rsttower, rstwires, rstxianlu, rstcontrol, rstljdjtemp, rsthucanjiaoyan As dao.Recordset
Public rstxianchang As dao.Recordset
End Module
运行到:DBunbten = DAODBEngine_definst.Workspaces(0).OpenDatabase("UNBTEN.mdb")