Cargar combobox en datagrid

Public Sub tipo_dato()
        For i As Integer = 0 To dg_variables.Rows.Count - 1 ' filas
            Dim dg_cb As New DataGridViewComboBoxCell
            dg_cb.Items.Add("Hola1")
            dg_cb.Items.Add("Hola2")
            dg_cb.Items.Add("Hola3")
            dg_variables.Item(col_tipo, i) = dg_cb
        Next
    End Sub