查询结果导出的问题

下面的语句是把查询到的数据导出为 文件名是查询结果的excel文件

 怎么才能修改成  只把查询到的数据保存到数据库里面的 查询结果 这个查询里面呢 

不需要导出为 excel文件

Private Sub cmd导出_Click()
On Error GoTo Err_cmd导出_Click
    Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象
    Dim strWhere, strSQL As String
   
    strWhere = Me.耗料条件查询子窗体.Form.Filter
    If strWhere = "" Then
        '没有条件
        strSQL = "SELECT * FROM [耗料条件查询]"
    Else
        '有条件
        strSQL = "SELECT * FROM [耗料条件查询] WHERE " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("查询结果")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "查询结果", acFormatXLS, , True

   
Exit_cmd导出_Click:
    Exit Sub
Err_cmd导出_Click:
    MsgBox Err.Description
    Resume Exit_cmd导出_Click
   

End Sub