If Option1.Value Then
my_db.CursorLocation = adUseClient
my_db.Open strU
adoRS.Open "SELECT * FROM 传真表 WHERE 文件名称 LIKE '%" & my_t1 & "%' and 文号 LIKE '%" & my_t2 & "%' and 档案号 LIKE '%" & my_t3 & "%' and 发文机关 LIKE '%" & my_t4 & "%' and 发文日期 LIKE '%" & my_t5 & "%' and 内容提要 LIKE '%" & my_t7 & "%' ", my_db, adOpenStatic, adLockReadOnly
On Error GoTo FilterErr
adoRS.MoveFirst
End If
If Option2.Value Then
my_db.CursorLocation = adUseClient
my_db.Open strU
adoRS.Open "SELECT * FROM 已存文表 WHERE 文件名称 LIKE '%" & my_t1 & "%' and 文号 LIKE '%" & my_t2 & "%' and 档案编号 LIKE '%" & my_t3 & "%' and 发文机关 LIKE '%" & my_t4 & "%' and 发文日期 LIKE '%" & my_t5 & "%' and 内容提要 LIKE '%" & my_t7 & "%' ", my_db, adOpenStatic, adLockReadOnly
On Error GoTo FilterErr
adoRS.MoveFirst
End If
If Option3.Value Then
my_db.CursorLocation = adUseClient
my_db.Open strU
adoRS.Open "SELECT * FROM 电子公文表 WHERE 文件名称 LIKE '%" & my_t1 & "%' and 文号 LIKE '%" & my_t2 & "%' and 档案号 LIKE '%" & my_t3 & "%' and 发文机关 LIKE '%" & my_t4 & "%' and 发文日期 LIKE '%" & my_t5 & "%' and 内容提要 LIKE '%" & my_t7 & "%' ", my_db, adOpenStatic, adLockReadOnly
On Error GoTo FilterErr
adoRS.MoveFirst
End If