怎么实现模糊查询
Private Sub kscx_Click()
If Len(Text1.Text) > 0 Then
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from fuzhuzhuangzhi where gzxx='" & Trim(Text1.Text) & " ' "
Adodc1.Refresh
Else
End If
End Sub

[解决办法]
Adodc1.RecordSource = "select * from fuzhuzhuangzhi where gzxx like '%" & Trim(Text1.Text) & "%'"

[解决办法]
% 只是通配符之一，你还可以查下，还有很多其他通配符的 比如 _ ?
[解决办法]
模糊查询就得用like