求助，急！查询结果突然不能导出了

多条件查询窗体的查询结果突然不能导出到excel了，导出的只有字段名称，没有实际内容了。导出按钮的代码如下：

Private Sub cmdExport_Click()
On Error Resume Next
    Dim xlApp As Object     'Excel.Application
    Dim xlBook As Object    'Excel.Workbook
    Dim xlSheet As Object   'Excel.Worksheet
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add    '添加一个新的Book
    Set xlSheet = xlApp.ActiveSheet     '使用当前的Sheet
    
    Dim strSQL As String
    Dim rst As DAO.Recordset
    Dim i As Integer
    Dim j As Integer

  
    Set rst = CurrentDb.OpenRecordset(Me.Child0.Form.RecordSource)
    For i = 0 To rst.Fields.Count - 1
        rst.MoveFirst
        j = 0
        xlSheet.cells(1, 1 + i) = rst.Fields(i).Name
        
    Next i
    xlSheet.Range("A2").CopyFromRecordset rst

    rst.Close
    Set rst = Nothing
    MsgBox "导出完成！"
    xlApp.Visible = True
End Sub