怎么改程序啊 我有个程序有错误 求高手帮忙改一下

ErrSave:
 Select Case Err.Number
 Case -2147352571
 MsgBox "没选择编号或带 * 内容没填,若没有请输入 0 ", vbInformation + vbOKOnly, "输入错误"
 RsAddPay.CancelUpdate
 Case Else
 MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"
 End Select
End Sub

出错的地方在这之前，这段代码没有错。