生成exe 后提示运行的错误'5',无效的过程调用或参数？

Question

Private Sub cmddelete_Click()Dim a As IntegerIf renzheng() ThenIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox "暂时没有消费记录!"Exit SubEnd Ifa = MsgBox("删除后无法恢复!确认要删除该记录吗?", vbYesNo + vbInformation, "警告信息")If a = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateBatchIf Adodc1.Recordset.RecordCount = 0 ThenMsgBox "暂时没有消费记录!"Exit SubEnd IfIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastElseAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfEnd IfMsgBox "恭喜您!删除成功!"End IfElseMsgBox "身份认证失败,密码错误!"End IfEnd Sub

Answer 1

你应该在调试状态看一下出错在哪 一行
别直接编译成EXE文件后执行
天知道出错在什么地方

Answer 2

这里可只有一个过程renzheng() ，检查一个是不是定义了，是不是函数，或者是否需要参数。