运行时出现错误424 要求对象是什么意思啊

Private Sub cmdcx_Click()
Dim str As String
str = IputBox("请输入欲查询的事故航空公司; ", "查询")
If str = "" Then Exit Sub
Adocl.Recordest.Find "ID=" '& str &"'"
If Adocl.Recordest.EOF Then
MsgBox "查无此记录", "提示信息"
End If

End Sub

Private Sub Cmdgx_Click()
If tetjx = "" Then Exit Sub
Adocl.Recordest.Update
Adocl.Recordest.MoveLast
Cmdgx.Enabled = False
Cmdsc.Enabled = True
Cmdcx.Enabled = True
Framel.Visible = Falae

End Sub

Private Sub Cmdsc_Click()
If MsgBox("删除当前记录否?", vbYesNo, "提示信息") = vbYes Then
Adocl.Recordest.Delete
Adocl.Recordest.MoveNext
If Adocl.Recordest.EOF Then
Adocl.Recordest.MoveFirst
If Adocl.Recordest.EOF Then
Cmdsc.Enabled = False
Cmdcx.Enabled = False
End If
End If
End If

End Sub

Private Sub Cmdtc_Click()
Unload Me
End Sub

Private Sub cmdtj_Click()
Framel.Visible = True
Adocl.Recordest.AddNew
Cmdsc.Enabled = False
Cmdgx.Enabled = True

End Sub

Private Sub Form_Load()

End Sub

那我已经改过来了，还是那样

str = IputBox("请输入欲查询的事故航空公司; ", "查询")
IputBox-->inputBox()

如果还有要求对象，那么坚持一下，是不是那个对象的名字写错了。
告诉我，错在哪一行，出错时按"调试"，会显示出错行的。
QQ：270447337，可以吧代码给我