如何设置VBA语句，使两个报表共用一个查询表

我建了两个报表，打算每个报表都共用一个查询表，用VBA各编了一个打开报表事件时的加滤动作，

第一个LVP系统报表，语句是：

Private Sub Report_Open(Cancel As Integer)

Dim str分类 As String
str分类 = "LVP 系统"
DateFilter = InputBox("请输入维护序号", "提示信息")
Me.Filter = "系统分类='" & str分类 & "'and 维护序号=" & DateFilter '设置条件
Me.FilterOn = True '执行筛选

第二个SVP系统报表，语句是：

Private Sub Report_Open(Cancel As Integer)
Dim str分类 As String
str分类 = "SVP 系统"
DateFilter = InputBox("请输入维护序号", "提示信息")
Me.Filter = "系统分类='" & str分类 & "'and 维护序号=" & DateFilter '设置条件
Me.FilterOn = True '执行筛选
End Sub

但是比如关闭LVP系统报表后，打开报表SVP系统报表时，都发现查询中还留用前一次打开SVP系统报表时的筛选文字，报表结果是空的，也就是说查询表中的上一个筛选条件没法在这次筛选中清除，这个如何解决？