Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
        Dim a As Integer
        Code = CType(e.Item.Cells( 1 ).Text, Integer)
        ViewState("CodeKgt")=Code
        Dim con As New SqlClient.SqlConnection(ConStr)
        con.Open()
        Dim sqlCom As New SqlClient.SqlCommand("SELECT * FROM Справочник_Юр_лиц where Код_Контрагента =" & Code, con)
        Dim rd As SqlClient.SqlDataReader = sqlCom.ExecuteReader

        Try
            rd.Read()
            a = rd( 0 )
            Try
                txtkgt.Text = rd( 1 )
            Catch
            End Try
            Try
                txtINN.Text = rd( 2 )
            Catch
            End Try

            и т.д.  15  раз
   catch
   end try