前辈帮我看看这个问题出在哪里？

[alex9903]

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

给车间做的一个数据库管理软件，
这个是修改模块中按键的代码，
在运行到：Adodc1.Recordset.MoveFirst 这里的时候提示错误91，
with变量什么的。
请高手帮忙看看问题出在哪里？谢谢！！

[alex9903]

谁能帮帮我。

[清海扬波]

假如是SQl数据库 :
Adodc1.Recordset.Find "附件编号 like '%" & aa & "%'"
if adodc1.Recordset.RecordCount<>0 then
Adodc1.Recordset.MoveFirst
end if

[alex9903]

是用access2003做的表，
SQL我不是很懂。
这些也都是现学现用的，
能麻烦说的详细一点吗？
谢谢～

[clear_zero]

if adodc1.Recordset.RecordCount<>0 then
Adodc1.Recordset.MoveFirst
end if
做一个判断试试看

[alex9903]

还是不行啊，

[alex9903]

算了。。