复杂的查询报表（在线等）急

Question

想实现的功能：
当弹出报表的时候，就弹出一个查询条件窗口，在窗口里能输入查询的条件。
然后根据查询的条件来显示在报表中
普通的使用数据环境的话，sql语句是锁定的，不能按条件输入和修改
我该怎么做？？？
（不懂水晶报表，也不想用水晶报表，想用系统自带的datareport来实现）

Answer 1

当然可以With 数据环境.rsCommand名
If .State = adStateOpen Then .Close
.Source = SQL语句 '这里就可以作为参数参数传进去
.Open 打开想输出的数据库数据项以便输出
End With
With 报表名
　.DataSource=数据环境
　.DataMember=Command名 这两行也可固定设好而不必每次设置
　设置页表头部分(RpttLabel…为报表控件名)
　.Sections(2).Controls("RptLabelPage").Caption = "共%P页第%p页"
　.Sections(2).Controls("RptLabelDate").Caption = "打印日期：%D"
　.Sections(3).Controls("RptLabel1").Left=…
　…
　设置细节部分(RptShapeX、RptTextBoxX为报表控件名)
　.Sections(3).Controls("RptShape1").Left=…
　.Sections(3).Controls("RptShape1").Top=…
　.Sections(3).Controls("RptShape1").Height=…
　.Sections(3).Controls("RptShape1").Width=…
　.Sections(3).Controls("RptTextBox1").DataMember=Command名
　.Sections(3).Controls("RptTextBox1").DataField=字段1
　.Sections(3).Controls("RptTextBox1").Font.Name=…
　…
　.Sections(3).Controls("RptShapeN").Visible=False
　.Sections(3).Controls("RptTextBoxN").Visible=False
　…
　. Sections(3).Height=计算出的或固定的细节高度
动态调整报表标题(RptLabelTitle为报表标签控件名)
　.Sections(2). Controls("RptLabelTitle").Left=…
　…
　.Sections(2). Controls("RptLabelTitle").Alignment=…
　…
　调整完毕后
　.Show 或 .PrintReport
End With

Answer 2

Private Sub DataReport_Initialize()Dim adors As New ADODB.Recordset
Dim adoconn As New ADODB.Connection
adoconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\project\国太公司\guotai.mdb;Persist Security Info=False"
adoconn.Open adoconnadors.Open "select * from 会员资料", adoconn, adOpenKeyset, adLockOptimistic
Set DataReport1.DataSource = adors
    With DataReport1
     .Sections("section1").Controls.Item("text1").DataField = adors.Fields("会员姓名").Name
     .Sections("section1").Controls.Item("text2").DataField = adors.Fields("卡号").Name
     .Sections("section1").Controls.Item("text3").DataField = adors.Fields("手机").Name
     .Sections("section1").Controls.Item("text4").DataField = adors.Fields("公司名称").Name
     .Show
     End With
End Sub