求救：窗体替换时显示不正确

Question

我的程序功能是选择combo1中的一个选项进行查询，点“确定”显示查询结果。
错误如下：
    查询一次显示结果后，再用此窗体查询，还显示原来的结果。
    但查询一次显示结果后，中间随意选用任意一个窗体，再按此窗体查询，显示结果就正确了。
请问我是少写了什么？
    问题解决立刻给分，谢谢！

Answer 1

有没有用了option控件，可能影响你的查询结果

Answer 2

定义了Option Explicit用于传递查询块。这有什么关系吗？
   以下是我的程序：（选择“仓库”查询入库信息）
Private Sub cmdOK_Click()       ‘ok键代码
    Dim dBeginDate As String
    Dim dEndDate As String
    Dim sQSql As String
    sQSql = （查询条件）    If Trim(sQSql) = "" Then
        MsgBox "请设置查询条件！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        frmInquireCK.txtSQL = sQSql
        
        Me.Hide
        frmInquireCK.Show 0
    End If
End Sub点击ok键后显示查询内容如下：
Private Sub ShowData()
    
    Dim j As Integer
    Dim i As Integer  
    Set mrc = ExecuteSQL(txtSQL, MsgText)
        With msgList
        .Rows = 1
        
        Do While Not mrc.EOF
            .Rows = .Rows + 1
            For i = 1 To mrc.Fields.Count
                Select Case mrc.Fields(i - 1).Type
                    Case adDBDate
                        .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
                    Case Else
                        .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
                End Select
            Next i
            mrc.MoveNext
        Loop
        
          
    End With
    mrc.Close
End Sub
请帮我改改，谢谢

Answer 3

frmInquireCK.txtSQL = sQSql'不明白你这是什么意思？
        
        Me.Hide
        frmInquireCK.Show 0你可以用全局变量来保存SQL查询语句的值。
在Form_Load时，
Call ShowData(txtSQL)

Answer 4

frmInquireCK.txtSQL = sQSql 这是一个查询条件，请帮我解决一下“窗体替换时显示不正确”的问题