高手们！请实验以下[如何用ADO方式连接EXCEL文件！]第三次请问，难道无人会吗？100分！

Question

Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
'非 DSN ,ODBC Provider + ODBC  Microsoft Excel Driver  连接:
adoConnection.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=e:\temp\book2.xls" 
'adoConnection.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=e:\temp\book1.xls"
'adoRecordset.CursorLocation = adUseClient
adoRecordset.Open "select * from [sheet1$]", adoConnection, adOpenKeyset, adLockOptimistic
Debug.Print adoRecordset.RecordCount
Do Until adoRecordset.EOF
   'For i = 0 To adoRecordset.Fields.Count - 1
       Debug.Print adoRecordset.Fields.Item(0).Name
       Debug.Print adoRecordset.Fields.Item(0).Value
       adoRecordset.MoveNext
   'Next i
Loop