连接：
Dim oConn As New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=C:\Book1.xls;" & _
           "Extended Properties=""Excel 8.0;"""
oConn.Close

查询：
oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic
oRS.Open "Select * from [Sheet1$A1:B10]", oConn, adOpenStatic