Private Sub Text9_Change()
If Text9.Text <> "" Then
searchSQL = "select * from drv_temp_mid where 编号 like '%" & Trim(Text9.Text) & "%' or xm like '%" & Trim(Text9.Text) & "%' or sfzmhm like '%" & Trim(Text9.Text) & "%' or djzsxxdz like '%" & Trim(Text9.Text) & "%' or 备注 like '%" & Trim(Text9.Text) & "%' or zkcx like '%" & Trim(Text9.Text) & "%' ORDER by 编号"
End If
Adodc3.RecordSource = searchSQL
End Sub