Добавление в DataGridView нового столбца - Visual Basic .NET

Формулировка задачи:

Уже неделю сижу не могу разобраться с этим объектом

Public Class Form1
    Dim dt As New DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Progect"
    End Sub
 
    Private Sub НовыйПроект_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles НовыйПроект.Click, ToolStripButton1.Click
        dt.Columns.Add("Длина")
        dt.Columns.Add("Ситуация")
        DataGridView1.DataSource = dt
    End Sub
End Class

1) Подскажите пожалуйста как программно присвоить второй колонке тип DataGridViewComboBoxColumn и вписать в выкидывающийся список название элементов (дорога дерево и т.д) Читаю книгу Visual Basic 2010 на примерах В.Зибиров книга хорошая ну не могу найти ответы на возникающие вопросы Скажите можно ли циклом считать столбец до последней ячейки и если можно то как? Пожалуйста поделитесь кто что знает буду всем очень благодарен. Заранее огромное спасибо всем!!!

Решение задачи: «Добавление в DataGridView нового столбца»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Dim DataSet As New DataSet
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DataSet.AcceptChanges()
        DataSet.WriteXml("1.xml")
        MsgBox("Сохранено")
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ComboColumn As New DataGridViewComboBoxColumn() With {.DataPropertyName = "Combo", .HeaderText = "Выбери..."}
        ComboColumn.Items.AddRange(New String() {"Дерево", "Дорога", "Травмпункт"})
        Dim dataTable As New DataTable("table1")
        DataSet.Tables.Add(dataTable)
        Me.DataGridView1.DataSource = DataSet.Tables(0)
        dataTable.Columns.Add("Кол-во", GetType(Integer)) 'Будут вводиться только числа
        DataGridView1.Columns.Add(ComboColumn)
        dataTable.Columns.Add("Combo", GetType(String))
        dataTable.Columns.Add("Текст", GetType(String))
        Try
            DataSet.ReadXml("1.xml")
        Catch ex As Exception
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Подсчитать сумму ячеек первого столбца
        Dim Summ As Integer = 0
        For I As Integer = 0 To DataGridView1.RowCount - 1
            Summ += Val(DataGridView1.Item(0, I).Value)
        Next
        MsgBox("Сумма ячеек первого столбца: " & Summ)
    End Sub
End Class
                        