Option Explicit

Option ExplicitPublic txtSQL As StringDim mrc As adodb.Recordset'用户的读写权限标识Dim mintRW As Integer'状态条中显示的时间信息Public msBarText As StringPublic reportSQL As StringPublic Sub RecordFind() 'End SubPublic Sub RecordRefresh() '显示数据 msBa