请问如何读出Excel的第一行？

[So_Long]

Public Function LoadExcelFile(fPath,SheetName)
On Error Resume Next
Dim Rev
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&fPath&";Extended Properties=Excel 8.0;"
Set objConn = Server.CreateObject("Adodb.Connection")
objConn.Open(ConnStr)
If Err.Number <> 0 Then
Response.Write("<font color=red>发生错误:请检查文件路径("&fPath&")和表名("&SheetName&")是否正确！</font>")
Response.End()
End If
Set Rs_Out = Server.CreateObject("Adodb.RecordSet")
Sql_Out = "Select * From ["&SheetName&"$]"
Rs_Out.Open Sql_Out, objConn, 2, 3
If Err.Number <> 0 Then
Response.Write("<font color=red>发生错误:请检查文件路径("&fPath&")和表名("&SheetName&")是否正确！</font>")
Response.End()
End If
Rs_Out.MoveFirst
Rev = Rs_Out.GetRows()
Rs_Out.Close()
Set Rs_Out = Nothing
Set objConn = Nothing
TotalCols = UBound(Rev,1)
TotalRows = UBound(Rev,2)
LoadExcelFile = Rev
End Function
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
读出的数据是从Excel文件的第二行开始的，有没有办法从第一行开始读呢？
moveFirst和move(0)我都试过了，还是不行！

[So_Long]

谢谢！解决！

[HHH3000]

rsname = objRs( 0 ).name

for i = 1 to objRs.Fields.Count - 1
rsname = rsname & "," & objRs( i ).name
next

[caoshangfei]

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&fPath&";Extended Properties=""Excel 8.0;HDR=No;"""