On Error GoTo k

提问：On Error GoTo k

Private Sub Commandzj_Click()
On Error GoTo k:
If Textfj.Text <> "" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("房号") = Textfj.Text
Adodc1.Recordset.Fields("姓名") = Textxm.Text
Adodc1.Recordset.Fields("身份证") = Textsfz.Text
Adodc1.Recordset.Fields("入住时间") = Textrzsj.Text
Adodc1.Recordset.Fields("退房时间") = Texttfsj.Text
Adodc1.Recordset.Fields("家庭住址") = Textjtzz.Text
Adodc1.Recordset.Update
Else
MsgBox "主索引不能为空", , "错误提示"
End If
Exit Sub
k: MsgBox "主索引不能重复", , "错误提示"
End Sub
当主索引重复的时候出错，On Error GoTo k 语句 执行了错误提示。不过它也执行了正常语句

回答：

在msgbox语句后,k: MsgBox "主索引不能重复", , "错误提示"
exit sub
end sub
就行了