这是一个比较方便的方法了
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 查询