Change datagridview coolumn as combobox

<pre> Sub YEN()
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter
        Dim dt As New System.Data.DataTable
        CN_AC()
                      sorgu = "SELECT * FROM PERTTPDKS"
            End If
            da = New OleDb.OleDbDataAdapter(sorgu, cn_oracle)
            da.Fill(dt)
            .DataSource = dt.DefaultView
            ' ds = New DataSet()
            'da.Fill(ds, "ST")
            ' .DataSource = ds.Tables("ST").DefaultView

        End With
        CN_KAPA()


    End Sub