你把errHandle写在End Sub外面,自然就会报“标签未定义”的错误,改成下面这样:
Private Sub Command1_Click()
    On Error GoTo errHandle
       :
       :
errHandle:
    MsgBox Err.Number & Err.Description & Err.Source
End Sub