为什么显示不出记录集第一条的数据呢

用adodb的方法循环读取EXCEL表中的数据 并在文本框中显示
可是每次第一条记录都显示不出来
循环之后也不显示第一条 只从第二条到最后一条

求教哪位高手帮忙看解决一下 我好困扰 谢谢啦
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim i As Integer
Dim j As Integer
Dim sql As String

Private Sub read_Click()
Set Conn = New ADODB.Connection
Set rs = New ADODB.Recordset
strName = "F:\ztcanshu.xls" 'EXCEL文件名
strSheetName = "sheet1" 'EXCEL表名
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strName & ";Extended Properties='Excel 8.0;HDR=Yes'" '连接EXCEL文件
sql = "select * from [" & strSheetName & "$];" '打开EXCEL表
rs.Open sql, Conn, adOpenStatic, adLockOptimistic
rs.MoveFirst
Do While Not rs.EOF
'Do Until rs.EOF
For i = 1 To 10
rw(i) = rs.Fields(0).Value
bz(i) = rs.Fields(1).Value

为什么显示不出记录集第一条的数据呢 ASP+SQL只显示第一条记录 我想取第一条记录，为什么列出了所有记录？ asp 控制显示记录条数，在线等 group by语句显示记录条数问题 ASP不用数据库能否显示出任意条查询记录 在做asp分页时,怎样让访客自行设置每页显示的记录条数? 用下面的语句如何得到记录的条数？ 为什么在VB中向数据库里添加记录的时候,总是出现第一个子段的第一个记录的记录没有显示?? SQL Server中如何获得返回记录的条数。