Set connResult = New ADODB.Connection
connResult.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & App.Path & "\Data\Searches.mdb"
Set rsResult = New ADODB.Recordset
rsResult.Open "Select * From Search where 图象名称 like '临西县*", connResult
'rsResult.Open "Select * From Search", connResult
Set DRResult.DataSource = rsResult
Set rsResult = Nothing
Set connResult = Nothing
DRResult.Orientation = rptOrientLandscape
DRResult.Show