Private Sub cmdQuery_Click()
    Dim strSQL As String
    If Trim(txtName.Text) = "" Then
      MsgBox "查询关键词不能为空!", vbOKOnly + vbExclamation, "警告!"
      txtName.SetFocus
      Exit Sub
    End If
    strSQL = "Select*From 失效术语表 Where 关键字 like" + "'" + Replace(Trim(txtName.Text), "'", " ''", 1) + "%'"
    = adCmdText
    Adodc1.RecordSource = strSQL
    Adodc1.Refresh
End Sub
Private Sub cmdClear_Click()
    txtName.Text = ""
    txtName.SetFocus
End Sub
Private Sub cmdClose_Click()
End
End Sub
我知道应该在Select*From这里该但具体怎么改不清楚，哪位兄台指点下，是不是还要加个那个模糊查询的控件呀？

没有人能帮下忙吗？？？

where 关键字 in （Select 关键字 From 失效术语表 Where 关键字 like" + "'" + Replace(Trim(txtName.Text), "'", " ''", 1) + "%'）

收到的鲜花

• 本来很陈旧 于 2013-05-01 11:03 送鲜花  3朵  

谢谢楼上回答！请问一下楼上的兄弟是把这句直接替换strSQL =以后的内容吗？运行显示语法错误。本人初学好多不懂

总算做出来了，是这样的strSQL = "Select*From 失效术语表 Where 关键 like'%" & txtName.Text & "%'"，还是谢谢楼上