Как при загрузке формы в combobox'е автоматически выставить значения из скрытого столбца

 
Column.DisplayMember = "name"
Column.ValueMember = "key"
 
и
 
DataGridView1.Columns(1).Visible = False ' -  это text поле при заполнении dgv вместо которого
' был добавлен combobox в данном столбце были строки 
'со значениями 0 или 1 или 2 соответственно во  втором
' sql запросе к combobox key 1,2,3 = названиям

Dim ds As DataSet = Gets()
            DataGridView1.DataSource = ds.Tables("table1")
            DataGridView1.Columns.Remove("Type")
            Dim listCol As New DataGridViewComboBoxColumn()
            listCol.DisplayIndex = 1
            listCol.HeaderText = "sltype"
            listCol.DataPropertyName = "Type" ' вот на это ругается(
 
 
            listCol.DataSource = ds.Tables("table2")
            listCol.DisplayMember = "name"
            listCol.ValueMember = "key"
            DataGridView1.Columns.Add(listCol)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim DT1 As New DataTable ' Допустим, это таблица заказов
 
        DT1.Columns.Add("ID")
        DT1.Columns.Add("Date")
        DT1.Columns.Add("ProductID") 'Тут лежит ID продукта из таблицы ниже
 
        Dim DT2 As New DataTable ' А это таблица продуктов
 
        DT2.Columns.Add("ID")
        DT2.Columns.Add("Product_Name")
 
        'Заполняем табличку 1 
        DT1.Rows.Add()
        DT1.Rows(DT1.Rows.Count - 1).Item("ID") = 1
        DT1.Rows(DT1.Rows.Count - 1).Item("Date") = #1/1/2014#
        DT1.Rows(DT1.Rows.Count - 1).Item("ProductID") = 1
        DT1.Rows.Add()
        DT1.Rows(DT1.Rows.Count - 1).Item("ID") = 2
        DT1.Rows(DT1.Rows.Count - 1).Item("Date") = #1/4/2014#
        DT1.Rows(DT1.Rows.Count - 1).Item("ProductID") = 2
        DT1.Rows.Add()
        DT1.Rows(DT1.Rows.Count - 1).Item("ID") = 3
        DT1.Rows(DT1.Rows.Count - 1).Item("Date") = #1/5/2014#
        DT1.Rows(DT1.Rows.Count - 1).Item("ProductID") = 3
        DT1.Rows.Add()
        DT1.Rows(DT1.Rows.Count - 1).Item("ID") = 4
        DT1.Rows(DT1.Rows.Count - 1).Item("Date") = #1/7/2014#
        DT1.Rows(DT1.Rows.Count - 1).Item("ProductID") = 2
        DT1.Rows.Add()
        DT1.Rows(DT1.Rows.Count - 1).Item("ID") = 5
        DT1.Rows(DT1.Rows.Count - 1).Item("Date") = #1/8/2014#
        DT1.Rows(DT1.Rows.Count - 1).Item("ProductID") = 1
 
        'Заполняем табличку 2
        DT2.Rows.Add()
        DT2.Rows(DT2.Rows.Count - 1).Item("ID") = 1
        DT2.Rows(DT2.Rows.Count - 1).Item("Product_Name") = "Продукт №1"
        DT2.Rows.Add()
        DT2.Rows(DT2.Rows.Count - 1).Item("ID") = 2
        DT2.Rows(DT2.Rows.Count - 1).Item("Product_Name") = "Продукт №2"
        DT2.Rows.Add()
        DT2.Rows(DT2.Rows.Count - 1).Item("ID") = 3
        DT2.Rows(DT2.Rows.Count - 1).Item("Product_Name") = "Продукт №3"
 
 
        ' Вяжем бантик
        DataGridView1.DataSource = DT1
        DataGridView1.Columns.Remove("ProductID")
        Dim listCol As New DataGridViewComboBoxColumn()
        listCol.HeaderText = "Нормальное название продукта"
        listCol.DataPropertyName = "ProductID" 
 
 
        listCol.DataSource = DT2
        listCol.DisplayMember = "Product_Name"
        listCol.ValueMember = "ID"
        DataGridView1.Columns.Add(listCol)
 
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Try
            Dim DT1 As New DataTable ' Допустим, это таблица заказов
            DT1.Columns.Add("ID", GetType(Integer))
            DT1.Columns(0).AutoIncrement = True
            DT1.Columns(0).AutoIncrementSeed = 1
            DT1.Columns(0).AutoIncrementStep = 1
            DT1.Columns(0).Caption = "Колонка ID"
            DT1.Columns.Add("Date", GetType(Date))
            DT1.Columns.Add("ProductID", GetType(Integer))
 
            Dim DT2 As New DataTable ' Допустим, это таблица продуктов
            DT2.Columns.Add("ID", GetType(Integer))
            DT2.Columns(0).AutoIncrement = True
            DT2.Columns(0).AutoIncrementSeed = 1
            DT2.Columns(0).AutoIncrementStep = 1
            DT2.Columns(0).Caption = "Колонка ID"
            DT2.Columns.Add("ProductName", GetType(String))
 
            'Заполняем табличку 1 
            Dim startDate As Date = #1/1/2014#
            For i = 1 To 5
                Dim dRow As DataRow = DT1.NewRow
                dRow("Date") = startDate
                dRow("ProductID") = i
                startDate.AddMonths(1)
                DT1.Rows.Add(dRow)
            Next
            'Заполняем табличку 2
            For i = 1 To 5
                Dim dRow As DataRow = DT2.NewRow
                dRow("ProductName") = "Продукт №" & i
                DT2.Rows.Add(dRow)
            Next
 
            Dim listCol As New DataGridViewComboBoxColumn()
            listCol.HeaderText = "Нормальное название продукта"
            listCol.Name = "ComboBoxColumn"
            listCol.DataPropertyName = "ProductID"
            listCol.DataSource = DT2
            listCol.DisplayMember = "ProductName"
            listCol.ValueMember = "ID"
            DataGridView1.Columns.Add(listCol)
            DataGridView1.DataSource = DT1
            DataGridView1.Columns("ComboBoxColumn").DisplayIndex = DataGridView1.ColumnCount - 1
            DataGridView2.DataSource = DT1
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub