strSel = "SELECT * FROM SSADR " & sWhere
If rstAdo.State Then rstAdo.Close
rstAdo.Open strSel, gConn, adOpenDynamic, adLockReadOnly
With CryhonAddress'设计器对象
.Databas.SetDataSource rstAdo
End With
With frmReportPreview '玉兰窗口
.CRViewer1.ReportSource = rpt
.CRViewer1.viewReport
.Caption = PreviewTitle
Screen.MousePointer = vbDefault
.Show 1
End With