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) & "%'"
End If
Adodc3.RecordSource = searchSQL
Adodc3.Refresh
End Sub
请看看