ALTER PROCEDURE AAAA
AS
SET NOCOUNT ON
RAISERROR('AA',16,10)
RAISERROR('BB',16,10)
SELECT * FROM dbo.SET_DB
RAISERROR('CC',16,10)
RETURN @@ERROR
------------------------

Dim cnn As ADODB.Connection, cmd As ADODB.Command, prm As ADODB.Parameter, lngRecs As Long
Set cnn = CurrentProject.Connection
On Error GoTo Err_
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cnn
cmd.CommandText = "AAAA"
cmd.CommandType = adCmdStoredProc
cmd.Execute
Exit_:
Set prm = Nothing
Set cmd = Nothing
cnn.Close
Set cnn = Nothing
Exit Sub
Err_:
For i = 0 To (cnn.Errors.Count - 1)
MsgBox Format$(cnn.Errors(i).NativeError) & vbCr & vbCr & cnn.Errors(i).Description, vbCritical
Next
Resume Exit_
End Sub


Первые 2 RAISERROR отлавливаются, 3 - нет