求助下关于VB6连接SQL Sever 2008数据库的问题

USE MBOOK

GO
CREATE PROCEDURE Book_Borrow @in_ReaderID char(6),@in_ISBN char(18),
                             @in_BookID char(10),@out_str char(30)  OUTPUT
AS
BEGIN
   /*判断是否存在该读者*/
   IF NOT EXISTS(SELECT * FROM TReader WHERE 借书证号=@in_ReaderID)
   BEGIN
       SET @out_str='该读者不存在'
       RETURN 0
   END
   /*判断是否存在该图书*/
   IF NOT EXISTS(SELECT * FROM TBook WHERE ISBN=@in_ISBN)
   BEGIN
       SET @out_str='该图书不存在'
       RETURN 0
   END
   /*判断借书量是否已经到了借书上限数5*/
   IF(SELECT 借书量 FROM TReader WHERE 借书证号=@in_ReaderID)=5
   BEGIN
       SET @out_str='读者借书量不能大于5'
       RETURN 0
   END
   /*判断库存量是否为0*/
   IF (SELECT 库存量 FROM TBook WHERE ISBN=@in_ISBN)=0
   BEGIN
       SET @out_str='图书库存量为0'
       RETURN 0
   END
   /*判断读者是否已经借过该书*/
   IF @in_ISBN IN (SELECT ISBN FROM TLend WHERE 借书证号=@in_BookID)
   BEGIN
       SET @out_str='读者已经借过该书'
       RETURN 0
   END
   /*判断该书是否已经被借*/
   IF EXISTS(SELECT * FROM TLend WHERE 图书ID=@in_BookID)
   BEGIN
       SET @out_str='该图书ID已存在'
       RETURN 0
   END
   BEGIN TRAN                  /*开始一个事务*/
   /*插入借书记录*/
   INSERT INTO TLend(借书证号,ISBN,图书ID,借书时间)
               VALUES(@in_ReaderID,@in_ISBN,@in_BookID,GETDATE())
   IF @@ERROR>0                /*如果前面一条SQL语句出错则回滚事务并返回*/
   BEGIN
       ROLLBACK TRAN
       SET @out_str='执行过程中遇到错误'
       RETURN 0
   END
   UPDATE TReader SET 借书量=借书量+1 WHERE 借书证号=@in_ReaderID
   IF @@ERROR>0                /*如果前面一条SQL语句出错则回滚事务并返回*/
   BEGIN
       ROLLBACK TRAN
       SET @out_str='执行过程中遇到错误'
       RETURN 0
   END
   UPDATE TBook SET 库存量=库存量-1 WHERE ISBN=@in_ISBN
   IF @@ERROR>0                /*如果前面一条SQL语句出错则回滚事务并返回*/
   BEGIN
       ROLLBACK TRAN
       SET @out_str='执行过程中遇到错误'
       RETURN 0
   END
   UPDATE TBLend SET 是否借出=1 WHERE 图书ID=@in_BookID
   IF @@ERROR=0                /*如果所有语句都不出错则结束事务并返回*/
   BEGIN
       COMMIT TRAN
       SET @out_str='借书成功'
       RETURN 1
   END
   ELSE                        /*如果执行出错则回滚所有操作并返回*/
   BEGIN
       ROLLBACK TRAN
       SET @out_str='执行过程中遇到错误'
       RETURN 0
   END
END