请教一个视图查询的问题,构造查询条件

我设计了一个窗体：
1：增加了两个个域名：DT1 和DT2
2：增加了一个按钮【查询数据】
3：嵌入了一个视图视图的名叫MIAN

Sub Click(Source As Button)
Dim view As NotesView
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dt As New notesdatetime("2005/1/1")
Dim docA,docB As NotesDocument
Dim collection As NotesDocumentCollection
Dim workspace As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set uidoc=workspace.CurrentDocument
Set uiview = workspace.CurrentView
Set view = db.GetView("main")

'//显示当前视图中记录条数
Messagebox(view.EntryCount)

'//组合查询条件
sTime=uidoc.fieldgettext("dt1")
eTime=uidoc.fieldgettext("dt2")
formular={form="Form1"&DT1 >=[} + sTime +{]&DT2 <=[} + eTime + {]}

'//Refresh后显示的记录条数与之前保持一致，实际上应该发生变化
view.SelectionFormula = formula
view.Refresh
Messagebox(view.EntryCount)
End Sub

但是运行后视图内容以及记录数目没有任何改变，谢谢了


[解决办法]
我们一般都是代理使用FTSearch，得到的结果拼接成XML，然后进行解析
[解决办法]
可以用分类视图