Dim Name As SqlParameter
        Dim Type As SqlParameter
        Dim INN As SqlParameter
        Dim OGRN As SqlParameter
        Dim PostCod As SqlParameter
        Dim PostAdres As SqlParameter
        Dim FIO As SqlParameter
        Dim TCod As SqlParameter
        Dim TNumber As SqlParameter
        Dim FNumber As SqlParameter
        Dim e_mail As SqlParameter
        Dim Other As SqlParameter


        fBuild.cmd.CommandText = "SELECT  dbo.Dir_Company.Name, dbo.Dir_Company.Type, dbo.Dir_Company.TypeComp, dbo.Dir_Company.INN, dbo.Dir_Company.OGRN, " & _
     " dbo.Dir_Company.PostCod, dbo.Dir_Company.PostAdres, dbo.Dir_Company.FIO, dbo.Dir_Company.TCod, dbo.Dir_Company.TNumber, dbo.Dir_Company.FNumber," & _
     " dbo.Dir_Company.Other FROM dbo.Dir_Company "

        adDirComp = New SqlDataAdapter(fBuild.cmd.CommandText, fLogin.connectionString)
        adDirComp.Fill(fBuild.ds, "AdapterDirComp")

        adDirComp.UpdateCommand = New SqlCommand("UPDATE [BuildInspector].[dbo].[Dir_Company] SET [Name] = @Name,[Type] = @Type," & _
      "[INN] = @INN,[OGRN] = @OGRN ,[PostCod] = @PostCod ,[PostAdres] = @PostAdres ,[FIO] = @FIO ,[TCod] = @TCod ,[TNumber] =@TNumber,[FNumber] = @FNumber,[e_mail] = @e_mail ,[Other] = @Other" & _
    " WHERE [Id_Company] = @Id_Company  ", fLogin.connection)
        adDirComp.UpdateCommand.Parameters.AddWithValue("@Name", Trim(tbName.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@Type", Trim(tbType.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@INN", Trim(tbINN.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@OGRN", Trim(tbOGRN.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@PostCod", Trim(tbPostCod.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@PostAdres", Trim(tbNameCity.Text) + Trim(tbAdres.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@FIO", Trim(tbDir.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@TCod", Trim(tbPhoneCod.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@TNumber", Trim(tbPhoneCod.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@FNumber", Trim(tbFax.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@e_mail", Trim(tbEmail.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@Other", Trim(tbOther.Text))
        adDirComp.UpdateCommand.Parameters.AddWithValue("@Id_Company", fDirKontr.ID_Company)
         adDirComp.UpdateCommand.ExecuteNonQuery()
        adDirComp.Fill(fBuild.ds, "AdapterDirComp")

          Me.Close()