POPULAR COMBOBOX DE DATAGRIDVIEW

    Public Shared Function DGV_Autorizacoes(DGV As DataGridView) As DataGridView

        Try

            DGV.Columns.Clear()

            [ô]AQUI PREPARO A FORMATAÇÃO DO DGV
            With DGV
                .DefaultCellStyle.Font = New Font([Ô]Consolas[Ô], 12)
                [ô].ReadOnly = True
                .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
                .AllowUserToAddRows = False
                .AlternatingRowsDefaultCellStyle.BackColor = Color.Bisque
                .SelectionMode = DataGridViewSelectionMode.FullRowSelect
                .AllowUserToResizeColumns = False
                .RowHeadersVisible = False
                .AllowUserToResizeRows = False [ô]não permite redimensionar a linha
                .MultiSelect = False [ô]selecionar várias linhas = falso
                .ColumnCount = 6
                .Columns(0).Name = [Ô]Código[Ô]
                .Columns(1).Name = [Ô]Nome[Ô]
                .Columns(2).Name = [Ô]Documento[Ô]
                .Columns(3).Name = [Ô]CPF[Ô]
                .Columns(4).Name = [Ô]Parentesco[Ô]
                .Columns(5).Name = [Ô]ID_TELEFONE[Ô]
                .Columns(0).Visible = False
                .Columns(1).AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
                .Columns(2).Width = 100
                .Columns(3).Width = 200
                .Columns(4).Width = 300
                .Columns(5).Visible = False
            End With


            [ô]INSIRO A COLUNA DE COMBOBOX
            Dim column As New DataGridViewComboBoxColumn()
            With column
                .HeaderText = [Ô]Telefone(s)[Ô]
                .Name = [Ô]telefone[Ô]
                .Width = 150
                .FlatStyle = FlatStyle.Standard
                .SortMode = DataGridViewColumnSortMode.Automatic
                .CellTemplate = New DataGridViewComboBoxCell()
            End With
            DGV.Columns.Insert(6, column)


            For Each columns As DataGridViewColumn In DGV.Columns
                DGV.Columns(columns.Index).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
            Next


            
            _query = [Ô]select * from AUTORIZACOES[Ô]
            Dim comm2 As OleDbCommand = New OleDbCommand(_query, _cn)
            Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(comm2)
            Dim ds2 As DataSet = New DataSet()
            da2.Fill(ds2, [Ô]AUTORIZACOES[Ô])


            Dim _AUTS() As DataRow = ds2.Tables([Ô]AUTORIZACOES[Ô]).Select

            For Each registro As DataRow In ds2.Tables([Ô]AUTORIZACOES[Ô]).Rows

                [ô]FAÇO A PESQUISA NO BD REFERENTE À UM ID
                _query = [Ô]select * from TELEFONES where ID = @id[Ô]
                Dim comm As OleDbCommand = New OleDbCommand(_query, _cn)
                comm.Parameters.AddWithValue([Ô]@id[Ô],_registro([Ô]ID[Ô]))
                Dim da As OleDbDataAdapter = New OleDbDataAdapter(comm)
                Dim ds As DataSet = New DataSet()
                da.Fill(ds, [Ô]TELEFONES[Ô])

                Dim _TELS() As DataRow = ds.Tables([Ô]TELEFONES[Ô]).Select

                [ô]CRIO UMA COMBOBOX DE DGV PARA ARMAZENAR OS VALORES
                Dim combo As New DataGridViewComboBoxCell
                For Each registro2 As DataRow In ds.Tables([Ô]GRUPOS[Ô]).Rows
                    combo.Items.Add(registro2([Ô]TELEFONE[Ô]))
                Next

                [ô]POPULO A LINHA COM AS INFORMAÇÕES DA AUTORIZAÇÃO + O COMBOBOX
                DGV.Rows.Add(registro([Ô]COLUNA1[Ô]), registro([Ô]COLUNA2[Ô]), registro([Ô]COLUNA3[Ô]), registro([Ô]COLUNA4[Ô]), registro([Ô]COLUNA5[Ô]), registro([Ô]COLUNA6[Ô]), combo)

            Next
            
            Return DGV

        Catch ex As Exception
            MessageBox.Show(ex.Message, [Ô]Alerta de Erro[Ô], MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return Nothing
        Finally
            If _cn.State = ConnectionState.Open Then _cn.Close()
        End Try

    End Function

End Class