想在查询作用原有基础上实现模糊查询该怎么实现？？？ - 编程论坛

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这里该但具体怎么改不清楚，哪位兄台指点下，是不是还要加个那个模糊查询的控件呀？