实时错误'3001'，解决问题才给高分！

Question

实时错误'3001'
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
用的是VB6+ACCESS2000，当运行修改窗口中的查找功能时，其他正常，但在inputbox内点击取消就出错了.用的是vb6+access2000,window xp系统.试过用%或%%代替*,但也不行.
源代码如下：
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    '为recordset显示当前记录位置
    Adodc1.Caption = "Record:" & CStr(Adodc1.Recordset.AbsolutePosition)
End Sub
Private Sub Command1_Click(Index As Integer)
        Select Case Index
        Case 0
            On Error GoTo err1
            Adodc1.Recordset.UpdateBatch adAffectAll
        Case 1
            On Error GoTo err1
            Adodc1.Refresh
        Case 2
            aa = InputBox("查找姓名为:", , "*")
            If aa <> "*" Then
                Adodc1.Recordset.MoveFirst
                Adodc1.Recordset.Find "姓名 like '*" & aa & "*'"    此处有问题
            End If
    End Select
    Exit Sub
err1:
    MsgBox Err.Description
End Sub我是初学者，本来想把整个源程序发来，但不知如何发。
请各位高手多多指点，谢谢！解决问题才给高分！

Answer 1

既然是点取消，那就是不查询了       Case 2
            aa = InputBox("查找姓名为:", , "*")
            If aa="" then
                exit sub
            ElseIf aa <> "*" Then
                Adodc1.Recordset.MoveFirst
                Adodc1.Recordset.Find "姓名 like '*" & aa & "*'"    此处有问题
            End If
    End Select

Answer 2

inputbox点击取消后返回值为""Adodc1.Recordset.Find "姓名 like '**'"所以报错

Answer 3

同意楼上------
www.vicmiao.com
努力就有美好时光！