Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim da As System.Data.SqlClient.SqlDataAdapter = SqlDtAdapSexes
        Dim cmd As System.Data.SqlClient.SqlCommand
        Dim parm As System.Data.SqlClient.SqlParameter
        Dim conn As System.Data.SqlClient.SqlConnection = SqlConnection1



        cmd = New System.Data.SqlClient.SqlCommand("SELECT BRK_Kod_Str, BRK_Jen_Pol_Rojden FROM tablBRK WHERE BRK_Kod_Str=45591", conn)

        da.SelectCommand = cmd

        Dim DtsSexesVer2 As DataSet = New DataSet("SexesDts")

        da.Fill(DtsSexesVer2)

        Dim MainTableBRK As DataTable
        MainTableBRK = DtsSexesVer2.Tables("tablBRK")

        Dim CurrTableBRK As DataRow

        CurrTableBRK = MainTableBRK.Rows( 0 )
        Console.WriteLine("{0} {1}", _
            CurrTableBRK("BRK_Kod_Str").ToString, _
            CurrTableBRK("BRK_Jen_Pol_Rojden").ToString)
        MsgBox("begining string")

        cmd = New System.Data.SqlClient.SqlCommand("UPDATE tablBRK SET BRK_Jen_Pol_Rojden = 55 WHERE BRK_Kod_Str = 45591", conn)

                da.UpdateCommand = cmd
                da.Update(DtsSexesVer2)

                Console.WriteLine("{0} {1}", _
                    CurrTableBRK("BRK_Kod_Str").ToString, _
                    CurrTableBRK("BRK_Jen_Pol_Rojden").ToString)

    End Sub

    Function obr(ByVal str As String)
        Select Case str
            Case "Ж"
                Return "2"
                'If DtsSexes1.tablBRK.Rows(0).RowState = DataRowState.Modified Then MsgBox("string modified")
                'MsgBox(str)
            Case "М"
                Return "1"
        End Select
    End Function

   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ' ---- вычисляем число записей в таблице ----
        DtsFindNumRows1.Clear()
        SqlDtAdapFindNumberRows.Fill(DtsFindNumRows1) 'грузится в TextBox

        Dim MaxNumRows As Integer =  0 
        MaxNumRows = CInt(TextBox1.Text) 'хранится число строк в таблице

        '----- вычисляем первую запись -----
        Dim strSaveSelectQuery As String

        SqlDtAdapSexes.SelectCommand.CommandText = "SELECT TOP 1 BRK_Kod_Str FROM tablBRK ORDER BY BRK_Kod_Str"

        DataGrid1.DataSource = DtsSexes1.tablBRK
        DtsSexes1.Clear()
        SqlDtAdapSexes.Fill(DtsSexes1.tablBRK)
        Dim n1, n2, nLastElement As Integer

        n2 = DataGrid1.Item( 0 ,  0 ) 'номер id первого элемента

        SqlDtAdapSexes.SelectCommand.CommandText = "SELECT TOP 1 BRK_Kod_Str FROM tablBRK ORDER BY BRK_Kod_Str DESC"

        DataGrid1.DataSource = DtsSexes1.tablBRK
        DtsSexes1.Clear()
        SqlDtAdapSexes.Fill(DtsSexes1.tablBRK)

        nLastElement = DataGrid1.Item( 0 ,  0 ) ' номер последнего элемента

        SqlDtAdapSexes.SelectCommand.CommandText = "SELECT BRK_Kod_Str, BRK_Muj_Pol_Rojden, BRK_Jen_Pol_Rojden FROM tablBRK WHERE BRK_Kod_Str = " & CStr(n2) & " ORDER BY BRK_Kod_Str"

        DtsSexes1.Clear()
        SqlDtAdapSexes.Fill(DtsSexes1.tablBRK)

        n1 = n2

        Dim cmd As System.Data.SqlClient.SqlCommand
        Dim conn As System.Data.SqlClient.SqlConnection = SqlConnection1

        Dim i As Integer

        Do While (n1 <> nLastElement)' перебираем все строчки

            SqlDtAdapSexes.SelectCommand.CommandText = "SELECT BRK_Kod_Str, BRK_Muj_Pol_Rojden, BRK_Jen_Pol_Rojden FROM tablBRK WHERE BRK_Kod_Str = " & CStr(n1)

            DataGrid1.DataSource = DtsSexes1.tablBRK
            DtsSexes1.Clear()
            SqlDtAdapSexes.Fill(DtsSexes1.tablBRK)

            For i =  0  To DtsSexes1.tablBRK.Columns.Count -  1 ' перебираем все столбцы
                If (DtsSexes1.tablBRK.Rows.Count <>  0 ) AndAlso (Not IsDBNull(DtsSexes1.tablBRK.Rows( 0 ).Item( 1 ))) AndAlso (Not IsDBNull(DtsSexes1.tablBRK.Rows( 0 ).Item( 2 ))) Then

                    Console.WriteLine("{0} {1} {2}", _
                    CStr(DtsSexes1.tablBRK.Rows( 0 ).Item( 0 )), _
                    CStr(DtsSexes1.tablBRK.Rows( 0 ).Item( 1 )), _
                    CStr(DtsSexes1.tablBRK.Rows( 0 ).Item( 2 )))

                    If (CStr(DataGrid1.Item( 0 , i)) <> " ") And (CStr(DataGrid1.Item( 0 , i)) <> "") And (Not IsDBNull(DataGrid1.Item( 0 , i))) And (Not DtsSexes1.tablBRK.Columns(i).ReadOnly) Then
                        DataGrid1.Item( 0 , i) = obr(CStr(DataGrid1.Item( 0 , i)))' obr - это процедурка, где меняем DataGrid1.Item(0, i)

                    cmd = New System.Data.SqlClient.SqlCommand("UPDATE tablBRK SET BRK_Jen_Pol_Rojden = 9 WHERE BRK_Kod_Str = " & CStr(n1), conn)
                    SqlDtAdapSexes.UpdateCommand = cmd

                        Try
                            SqlDtAdapSexes.Update(DtsSexes1.tablBRK)
                        Catch ex As Exception
                            MsgBox(ex.ToString)
                        End Try


                    End If

                End If
            Next i
            n1 +=  1 
        Loop
    End Sub