原窗体取值在mdb数据库，现需改成直接在sheet1（表十八）取值

求助，在论坛里经常有些好的作品，但他的数据库经常为dmb类型文件，而我们又不想重新在access建库，所以想把mdb类型改成在xls下取值      如：原数据库为mdb文件："Data Source=" & ThisWorkbook.Path & "\WWSJ.MDB;" & _ 现想把他改成数据库类型未xls，直接在sheet1（表十八）取值，求高手指点

Cnn.Open "Provider=Microsoft.Jet.OleDb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
sheet1是在SQL语句里写的：
rst.open "select * from [sheet1$]",cnn,3,1