Dim pc As SqlClient.SqlParameterCollection
            Dim cmd_ob_add = cn.CreateCommand()
            cmd_ob_add.commandtext = "pldo.usp_object_add"
            cmd_ob_add.CommandType = CommandType.StoredProcedure
            pc = cmd_ob_add.parameters
            pc.Add("@kod_if", SqlDbType.TinyInt,  0 , Me.ComboBox_if.SelectedValue)
            pc.Add("@kod_vr", SqlDbType.TinyInt,  0 , Me.ComboBox_vr.SelectedValue)
            pc.Add("@id_zak", SqlDbType.Int,  0 , Me.ComboBox_zak.SelectedValue)
            pc.Add("@id_ist_dsr", SqlDbType.Int,  0 , Me.ComboBox_ist_dsr.SelectedValue)
            pc.Add("@kod_fil", SqlDbType.TinyInt,  0 , Me.ComboBox_ist_dsr.SelectedValue)
            pc.Add("@nazv_ob", SqlDbType.VarChar,  250 , Me.ComboBox_ist_dsr.SelectedValue)
            pc.Add("@god_nach_vr", SqlDbType.SmallInt,  0 , Me.ComboBox_god_n.SelectedValue)
            pc.Add("@mes_nach_vr", SqlDbType.TinyInt,  0 , Me.ComboBox_mes_n.SelectedValue)
            pc.Add("@god_sd", SqlDbType.SmallInt,  0 , Me.ComboBox_god_sd.SelectedValue)
            pc.Add("@mes_sd", SqlDbType.TinyInt,  0 , Me.ComboBox_mes_sd.SelectedValue)
            pc.Add("@flag_subp", SqlDbType.Bit,  0 , Me.CheckBox_subp.CheckState)
            pc.Add("@kod_raena", SqlDbType.TinyInt,  0 , Me.ComboBox_raen.SelectedValue).IsNullable = true
            pc.Add("@id_agr", SqlDbType.Int,  0 , Me.ComboBox_agr.SelectedValue).IsNullable = True
            pc.Add("@id_vr_agr", SqlDbType.Int,  0 , Me.ComboBox_vr_agr.SelectedValue).IsNullable = True
            cmd_ob_add.executenonquery()

create proc pldo.usp_object_add
@kod_if tinyint,
@kod_vr tinyint,
@id_zak int,
@id_ist_dsr int,
@kod_fil tinyint,
@nazv_ob varchar( 250 ),
@god_nach_vr smallint,
@mes_nach_vr tinyint,
@god_sd smallint,
@mes_sd tinyint,
@flag_subp bit,
@kod_raena tinyint,
@id_agr int,
@id_vr_agr int
as
insert into pldo.объекты
(kod_if, kod_vr, id_zak, id_ist_dsr, kod_fil, nazv_ob, god_nach_vr, mes_nach_vr, god_sd, mes_sd, flag_subp, kod_raena, id_agr, id_vr_agr)
values (@kod_if, @kod_vr, @id_zak, @id_ist_dsr, @kod_fil, @nazv_ob, @god_nach_vr, @mes_nach_vr, @god_sd, @mes_sd, @flag_subp, @kod_raena, @id_agr, @id_vr_agr);

Public Module main_mod
    Public cn As SqlClient.SqlConnection

    Public Sub createConnectionString(ByVal user_name As String, ByVal password As String)
        Dim bldr = New SqlClient.SqlConnectionStringBuilder()
        bldr.DataSource = "221.1.2.44"
        bldr.InitialCatalog = "trust"
        bldr.UserID = user_name
        bldr.Password = password
        bldr.IntegratedSecurity = False
        cn = New SqlClient.SqlConnection(bldr.ConnectionString)
    End Sub
End Module

Dim pc As SqlClient.SqlParameterCollection
                'update command
                Me.SqlDataAdapter_zak.UpdateCommand = cn.CreateCommand()
                Me.SqlDataAdapter_zak.UpdateCommand.CommandText = "general.usp_zak_upd"
                Me.SqlDataAdapter_zak.UpdateCommand.CommandType = CommandType.StoredProcedure
                pc = Me.SqlDataAdapter_zak.UpdateCommand.Parameters
                pc.Add("@id_zak", SqlDbType.Int,  0 , "id_zak")
                pc.Add("@назв_зак", SqlDbType.VarChar,  0 , "Название организации заказчика")
                pc.Add("@флаг_изм", SqlDbType.Bit,  0 , "Флаг изменений")

cn.Open()
            Dim pc As SqlClient.SqlParameterCollection
            Dim cmd_ob_add As New SqlClient.SqlCommand
            cmd_ob_add = cn.CreateCommand()
            cmd_ob_add.commandtext = "pldo.usp_object_add"
            cmd_ob_add.CommandType = CommandType.StoredProcedure
            pc = cmd_ob_add.Parameters
            pc.AddWithValue("kod_if", Me.ComboBox_if.SelectedValue)
            pc.AddWithValue("kod_vr", Me.ComboBox_vr.SelectedValue)
            pc.AddWithValue("id_zak", Me.ComboBox_zak.SelectedValue)
            pc.AddWithValue("id_ist_dsr", Me.ComboBox_ist_dsr.SelectedValue)
            pc.AddWithValue("kod_fil", Me.ComboBox_ist_dsr.SelectedValue)
            pc.AddWithValue("nazv_ob", Me.TextBox_nazv_ob.Text)
            pc.AddWithValue("god_nach_vr", Me.ComboBox_god_n.SelectedValue)
            pc.AddWithValue("mes_nach_vr", Me.ComboBox_mes_n.SelectedValue)
            pc.AddWithValue("god_sd", Me.ComboBox_god_sd.SelectedValue)
            pc.AddWithValue("mes_sd", Me.ComboBox_mes_sd.SelectedValue)
            pc.AddWithValue("flag_subp", Me.CheckBox_subp.CheckState)
            pc.AddWithValue("kod_raena", Me.ComboBox_raen.SelectedValue).IsNullable = True
            pc.AddWithValue("id_agr", Me.ComboBox_agr.SelectedValue).IsNullable = True
            pc.AddWithValue("id_vr_agr", Me.ComboBox_vr_agr.SelectedValue).IsNullable = True
            cmd_ob_add.executenonquery()
            cn.Close()

cn.Open()
            Dim pc As SqlClient.SqlParameterCollection
            Dim cmd_ob_add As New SqlClient.SqlCommand
            cmd_ob_add = cn.CreateCommand()
            cmd_ob_add.commandtext = "pldo.usp_object_add"
            cmd_ob_add.CommandType = CommandType.StoredProcedure
            pc = cmd_ob_add.Parameters
            pc.AddWithValue("kod_if", Me.ComboBox_if.SelectedValue)
            pc.AddWithValue("kod_vr", Me.ComboBox_vr.SelectedValue)
            pc.AddWithValue("id_zak", Me.ComboBox_zak.SelectedValue)
            pc.AddWithValue("id_ist_dsr", Me.ComboBox_ist_dsr.SelectedValue)
            pc.AddWithValue("kod_fil", Me.ComboBox_fil.SelectedValue)
            pc.AddWithValue("nazv_ob", Me.TextBox_nazv_ob.Text)
            pc.AddWithValue("god_nach_vr", Me.ComboBox_god_n.SelectedValue)
            pc.AddWithValue("mes_nach_vr", Me.ComboBox_mes_n.SelectedValue)
            pc.AddWithValue("god_sd", Me.ComboBox_god_sd.SelectedValue)
            pc.AddWithValue("mes_sd", Me.ComboBox_mes_sd.SelectedValue)
            pc.AddWithValue("flag_subp", Me.CheckBox_subp.CheckState)
            If Me.ComboBox_if.SelectedValue =  2  Then
                pc.AddWithValue("kod_raena", Me.ComboBox_raen.SelectedValue)
                pc.AddWithValue("id_agr", Me.ComboBox_agr.SelectedValue)
                pc.AddWithValue("id_vr_agr", Me.ComboBox_vr_agr.SelectedValue)
            Else
                pc.AddWithValue("kod_raena", System.DBNull.Value)
                pc.AddWithValue("id_agr", System.DBNull.Value)
                pc.AddWithValue("id_vr_agr", System.DBNull.Value)
            End If
            cmd_ob_add.ExecuteNonQuery()
            cn.Close()