If tbl.Columns.Count - 3 = j - 1 Then
            MsgBox("Все киоски внесены")
        Else
            For ind = 0 To j - 1
                Do
                    If i = tbl.Columns.Count - 3 Then Exit Do
                    If kio(ind).Name <> tbl.Columns(i + 2).ColumnName Then
                        kio(k).code = kio(i).Name
                        k = k + 1
                        Exit Do
                    Else
                        ind = ind + 1
                    End If
                    i = i + 1
                Loop
            Next
            n = MsgBox("Найден " + Str(k) + " киоск. Дабавить?", MsgBoxStyle.OKCancel)
            If n = 1 Then
                For i = 0 To k - 1
                    tbl.Columns.Add(kio(i).code)
                Next
                DataGrid1.DataSource = tbl
            End If
        End If

 Dim DataAdapter As New SqlClient.SqlDataAdapter("select * From kioski", conn)
        Dim SqlCommandBuil As New SqlCommandBuilder(DataAdapter)
        Dim tbl As New DataTable
        tbl = DataGrid1.DataSource
        DataAdapter.Update(tbl)