[求助]在存储过程中调用DLL文件遇到的问题

在存储过程中调用一DLL文件，此DLL文件（connectionvb.dll）用API SendMessage函数传递一字符串"ok"给server.exe,在vb下我用如下语句调用此DLL，server.exe能收到"ok"消息:
(server.exe一直运行)
////////////////////////////
先添加connectionvb.dll引用
dim obj as sendsms
set obj=new sendsms
obj.sb 1 'sb方法有一int参数
set obj=nothing
///////////////////////////

在调用如下存储过程后server.exe不能收到"ok"，为何？（存储过程如下）
CREATE PROCEDURE LS_GetUserList
AS
BEGIN
declare @err int,@obj int
exec @err=sp_OACreate 'connectionvb.sendsms',@obj out
if @err<>0 return
exec @err=sp_OAMethod @obj,'sb',1
exec sp_OADestroy @obj
END
GO

请路过的帮帮忙，email:yang163_@163.com