VB DAO 连接EXCEL文件方法（即.xls文件）

这是一个比较方便的方法了

Dim db As Database 'open excel file
Dim rs As Recordset

Dim db1 As Database 'open access table
Dim rs1 As Recordset

dim e_path as string

e_path="c:/temp.xls"

Set db = OpenDatabase(e_path, True, False, "Excel 8.0;")
Set rs = db.OpenRecordset("sheet1$")

注:db.openrecordset 里面可以全用sql select 查询