为什么以下代码出现0号错误~但是也能执行得到正确结果

Question

Public Function Connstring() As String '定义变量
Connstring = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;password=88550710;Initial Catalog=sport;Data Source=192.168.1.7"
End FunctionPublic Function ExecutePm() As Boolean
Dim Conn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim Pm As ADODB.Parameter
Dim Pm1 As ADODB.ParameterSet Conn = New ADODB.Connection
Conn.ConnectionString = Connstring
Conn.CursorLocation = adUseClient
Conn.Open '打开连接On Error GoTo Executeparameter:Set Cmd = New ADODB.Command
Set Pm = New ADODB.Parameter
Set Pm1 = New ADODB.ParameterWith Pm
    .Type = adVarChar
    .Size = 20
    .Direction = adParamInput
    .Name = "@s_number"
    .Value = "2"
End WithWith Pm1
    .Type = adInteger
    .Size = 4
    .Direction = adParamOutput
    .Name = "@count"
End With    Cmd.CommandType = adCmdStoredProc
    Cmd.Parameters.Append Pm
    Cmd.Parameters.Append Pm1    Cmd.CommandText = "land"
    
    Set Cmd.ActiveConnection = Conn
    Cmd.ExecuteMsgBox CStr(Pm1.Value)Executeparameter:    MsgBox "错误提示: " & Err.Number & Chr(13) & "错误内容: " & Err.Description, vbInformation, "系统提示信息"
    
End Function

Answer 1

因为楼主没在未发生错误时跳过执行错误处理代码，所以即使没有错误也会执行呀
在
Executeparameter:
前面加入:
Exit Function即可。

Answer 2

Err.Number = 0代表没有错误发生。
在Executeparameter:前应加上Exit Function
否则不发生错误也会执行到
MsgBox "错误提示: " & Err.Number & Chr(13) & "错误内容: " & Err.Description, vbInformation, "系统提示信息"