show result of stored procedure to user with a message box

[RoadyMayhem]

Hi all,

Currently working on a front end access database with linked tables on sql-server.
On a form I have a button that calls a stored procedure on sql-server.
I've cleaned the code a bit for readability:

Private Sub cmdITEMS_Click()

Dim cdb As DAO.Database, qdf As DAO.QueryDef

Set cdb = CurrentDb
Set qdf = cdb.CreateQueryDef("")
' get .Connect property from existing ODBC linked table
qdf.Connect = cdb.TableDefs("dbo_ITEMS").Connect
qdf.SQL = "EXEC dbo.sp_ITEMS"
qdf.ReturnsRecords = False
qdf.Execute dbFailOnError
Set qdf = Nothing
Set cdb = Nothing

End Sub

ALTER PROCEDURE [dbo].[sp_ITEMS] @Reload_YN varchar(1) = NULL
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;

-- Local variables
declare @LinkedServer varchar(255)
declare @LinkedServerBpcs varchar(255)
declare @Legal_entity_Code Varchar(3)
declare @Functional_currency varchar(3)
declare @Created_by varchar(50)
declare @sql_str varchar(max)
declare @New_Period_to_load varchar(8)
declare @Previous_Period varchar(8)
declare @Cost_Set varchar(1)
declare @err_message varchar(255)
declare @Organization_Code Varchar(2)
declare @Reload_YN_L Varchar(2)

select @New_Period_to_load = convert(varchar(8),dateadd(dd, -datepart(dd,getdate()),GETDATE()),112)
Select @Previous_Period =
(select TOP 1 [PERIOD]
From [dbo].[1TSL_GSTD_ITEMCOSTS])


If @New_Period_to_load <> @Previous_Period
and Not Exists (
Select 1
From [dbo].[1TSL_GSTD_ITEMCOSTS_FR]
where [PERIOD] = @Previous_Period)
begin
Set @err_message = '1TSL_GSTD_ITEMCOSTS period ' + @Previous_Period + ' is not yet Frozen!'
Raiserror (@err_message,11,1)
Return
end

As you can see: error messages are set (set @err_message = 'etc..'')

What I want, is to show the message useing a vba msgbox to the user.

Does anybody have clue?

any help is greatly appreciated.

Roady