conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:a.xls;Extended Properties='Excel 8.0;HDR=YES;IMEX=1'" rs.Open "select * from [sheet1$]", conn, adOpenForwardOnly, adLockOptimistic
Do While Not rs.EOF Print rs(0) rs.MoveNext Loop rs.Close End Sub