ADO搜索后,窗体的Checkbox一修改变ACCESS就死掉!,求解

不是高手

Dim rst As ADODB.Recordset
    Dim strAsk As String
    Set rst = Me.Recordset
    strAsk = InputBox("请输入供应商ID", "搜索")
    If strAsk <> "" Then
        rst.MoveFirst
        rst.Find "Supplier Like '%" & strAsk & "%'"
        Me.Recordset.Find "Supplier Like '%" & strAsk & "%'"
        
        If rst.EOF Then
            MsgBox "未找到此供应商！", vbExclamation + vbOKOnly
        End If
    End If

不是高手

怀疑是ACCESS的问题,只要一动那个recordset就死掉,今天升级看看!