VB6 ADODC的find方法出错的问题

Private Sub cmdfind_Click() '查找数据 
Dim str As String 
Dim mybook As Variant 
mybook = Adodc1.Recordset.Book 
str = InputBox("输入查找表达式", "如年龄=9", "查找") 
Text2.Text = mybook 
Text3.Text = str 
If str = "" Then Exit Sub 
Adodc1.Recordset.MoveFirst 
Adodc1.Recordset.Find str 
If Adodc1.Recordset.EOF Then 
MsgBox "指定的条件没有匹配的记录", , "信息提示" 
Adodc1.Recordset.Book = mybook 
End If 
End Sub 
当输入“年龄=9”之类的时候可以找到要找的数据，可是输入“姓名=XX”时候就显示参数类型不正确或不在可以接受的范围之内或与其它参数冲突。我把“XX”加上引号也不行的。 哪位高手指点一下？