可以使用ado直接调用EXCEL的数据，而不需要使用ACCESS。 
    Dim oConn As New ADODB.Connection 
    Dim oRS As New ADODB.Recordset 
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
     "Data Source=C:\Book1.xls;" & _ 
     "Extended Properties=""Excel 8.0;""" 
    oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic '打开Sheet1，也可以是定义的名称，或一个Range。 
    .. 
    .. 
    .. 
    oRS.Close 
    oConn.Close 
<END>    
