数据导入EXCEL问题

来这块问下Dim con As New ADODB.Connection
Dim rs As New Recordset
Dim mExcelFile As Objectcon.open ... 略
rs.open...略If rs.RecordCount > 0 Then
Set mExcelFile = CreateObject("Excel.Sheet")For i = 0 To rs.Fields.Count - 1
mExcelFile.ActiveSheet.Cells(1, i + 1).Value = rs.Fields(i).Name '在EXCEL中加标题
Next
mExcelFile.Application.Range("A2").CopyFromRecordset rs '在EXCEL第2行开始写入数据
mExcelFile.SaveAs "C:\book1.xls"
mExcelFile.Application.Quit
Set mExcelFile = Nothing
End IfIf rs.State = adStateOpen Then rs.Close: Set rs = Nothing
以上将查询结果导入EXCEL时，只导入了一条记录，其它的都没进去，请问哪出错了？ 谢谢！