无法捕获Exec执行的异常信息

无法捕获Exec执行的错误信息！
Set @SQLStr= 'Delete from ['+@TargetServer+'].'+@SourceDB+'.dbo.tbQSD Where pk_recpid='''+@pk_recpid+''' 
  Insert Into ['+@TargetServer+'].'+@SourceDB+'.dbo.tbQSD Select * from dbo.tbQSD Where pk_recpid='''+@pk_recpid+''' 
  Delete from ['+@TargetServer+'].'+@SourceDB+'.dbo.tbClientCHInOut Where SourceBill='''+@pk_recpid+''' 
  Insert Into ['+@TargetServer+'].'+@SourceDB+'.dbo.tbClientCHInOut Select * from dbo.tbClientCHInOut Where SourceBill='''+@pk_recpid+''' '
  Print(@SQLStr)
  Exec(@SQLStr)
  If @@Error>0
  Begin
Select @ReStatus=2, @ReMsg='插入错误'
return
  End




[解决办法]
这是什么？ 是VB脚本？还是PL-SQL语句？需要简单说明背景。
[解决办法]
你的问题时什么？需要简单介绍一下。我们只看到了一些代码。不知所云。