'==== STORED PROC =====
CREATE PROCEDURE MySP
AS
SELECT 100 As RetValue, N'Some Err Msg' As RetMsg
'==== VBA =============
Function AdoReturnTest(cn As ADODB.Connection) As Boolean
Dim rs As New ADODB.Recordset
Dim sSQL As String
sSQL = "Exec MySP"
rs.Open sSQL, cn, adOpenForwardOnly, adLockReadOnly
Debug.Print rs!RetValue, rs!RetMsg
rs.Close
Set rs = Nothing
End Function
|