@Freebo1 If Me.Text1.Text <> "" Then
Dim searchText As String
searchText = Me.Text1.Text
' 构建基于用户输入的搜索SQL查询,使用LIKE操作符进行模糊匹配
' 假定有三个字段固话或号码1, 固话或号码2, 移动电话,根据具体情况修改
Me.Adodc1.RecordSource = "SELECT * FROM telphone WHERE " & _
"固话或号码1 LIKE '%" & searchText & "%' OR " & _
"固话或号码2 LIKE '%" & searchText & "%' OR " & _
"移动电话 LIKE '%" & searchText & "%'"
Me.Adodc1.Refresh
End If