查询次序问题

我有一个查询,需要做两个动作,1、运行生成表查询，2、导出查询到指定的EXCL表

这两个动作必须有一定的步骤，即第一个完成后，才能干第二个，我只会设成二个按钮，我必须依次点二次，来控制他们的次序，不太方便。我尝试了以下代码，可以实现目的，但是两个动作的次序 ,没有按要求,导出是上次查询的表,而不是这次生成表查询生成的表,请高手帮忙看看,谢谢!

Private Sub Command27_Click()
DoCmd.SetWarnings False
On Error GoTo Err_Command27_Click

    Dim stDocName As String

    stDocName = ChrW(26597) & ChrW(-29726) & ChrW(49)
    DoCmd.OpenQuery stDocName, acNormal, acEdit                  这上面是个生成表查询

Exit_Command27_Click:
   QueryToExcel "查询2", "D:\查询结果.xls", "Sheet3"
    Exit Sub                                                     这是将查询结果导出

Err_Command27_Click:
    MsgBox Err.Description
    Resume Exit_Command27_Click
   
End Sub