Dim ExcelCn As New ADODB.Connection, ExcelRs As New ADODB.Recordset
ExcelCn.Open "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver (*.xls);DBQ=D:\a.xls"
ExcelRs.Open "select * from [Sheet1$]", ExcelCn, adOpenKeyset, adLockReadOnly
Do Until ExcelRs.EOF
Debug.Print ExcelRs.Fields.ITEM(0).Value
ExcelRs.MoveNext
Loop