无法捕获Exec执行的错误信息！

Question

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

Answer 1

这是什么？ 是VB脚本？还是PL-SQL语句？需要简单说明背景。

Answer 2

是SQLServer2000写的一个动态T-SQL语句。