在vb 里写的sql语句如何返回结果，如下段代码

Question

txtsql = "BEGIN TRANSACTION  "
txtsql = txtsql & "DECLARE @errorSum INT  "
txtsql = txtsql & "SET @errorSum=0  "
txtsql = txtsql & "delete from 教课信息 "
txtsql = txtsql & "WHERE 编号=Text5.Text "
txtsql = txtsql & "SET @errorSum=@errorSum+@@error "txtsql = txtsql & "IF @errorSum<>0  "
txtsql = txtsql & "BEGIN   print '删除失败'  "
txtsql = txtsql & "ROLLBACK TRANSACTION  "
txtsql = txtsql & "END "
txtsql = txtsql & "ELSE  BEGIN   "
txtsql = txtsql & "print '删除成功'  "
txtsql = txtsql & "COMMIT TRANSACTION  "
txtsql = txtsql & "END "
ExecuteSQL (txtsql)如何把“删除失败”“删除结果” 反映到vb界面的控件上，比如label,msgbox，需要什么函数么？