nu navernoe po-raznomu mozhno obrabativat' oshibki, pervoe chto pd rukoi bilo:

Public Function DeleteLocation( _
ByVal intClientNo As Integer, _
ByVal intLocationId As Integer, _
ByRef strMessage() As String, _
ByRef objConn As ADODB.Connection, _
ByRef objCmd As ADODB.Command) As Integer

On Error GoTo DeleteLocation_Err

Dim intIndex As Integer

Set objCmd.ActiveConnection = objConn
objCmd.CommandText = "DeleteLocationSp"
objCmd.CommandType = adCmdStoredProc

objCmd.Parameters.Append objCmd.CreateParameter("RC", adInteger, adParamReturnValue)
objCmd.Parameters.Append objCmd.CreateParameter("ClientNo", adInteger, adParamInput, , intClientNo)
objCmd.Parameters.Append objCmd.CreateParameter("LocationId", adInteger, adParamInput, , intLocationId)
objCmd.Parameters.Append objCmd.CreateParameter("Message", adVarChar, adParamOutput, 255)

objCmd.Execute

' eto oshibki kotorie SP vosvrashaet
If objCmd("RC") <> 0 Then
ReDim Preserve strMessage(0)
strMessage(0) = objCmd("Message")
End If

DeleteLocation = objCmd("RC")
On Error GoTo 0
Exit Function

DeleteLocation_Err:
' eto vse oshibki kotorie voznikli pri vipolnenii SP
Dim objErr As ADODB.Error
intIndex = -1
For Each objErr In objConn.Errors
intIndex = intIndex + 1
ReDim Preserve strMessage(intIndex)
strMessage(intIndex) = objErr.Description
Next
intIndex = intIndex + 1
ReDim Preserve strMessage(intIndex)
strMessage(intIndex) = Err.Description
DeleteLocation = 99
On Error GoTo 0
End Function