use myDb;

create table t1(id int primary key);
go
create table t2(id int primary key, t1_id int references t1(id));
go

insert into t1(id) values( 1 );
insert into t2(id, t1_id) values( 10 ,  1 );
go

create proc uspTest as
begin
	set nocount on;
	begin try
		select * from t2; 
		delete from t1; 
	end try
	begin catch
		raiserror('uspTest error',  16 ,  1 );
	end catch;
end;
go

      Dim da As New SqlDataAdapter
      da.SelectCommand = New SqlCommand("EXEC uspTest;")

      REM заполняем датасет - исключение поднимается, все нормалек
      Using conn As SqlClient.SqlConnection = NewConnection()  -- функция возвращает открытое соединение
        da.SelectCommand.Connection = conn
        Dim ds As New DataSet
        da.Fill(ds)
      End Using

      REM заполняем таблицу - исключение НЕ поднимается!!
      Using conn As SqlClient.SqlConnection = NewConnection()
        da.SelectCommand.Connection = conn
        Dim dt As New DataTable
        da.Fill(dt)
      End Using