ComboBox en datagrid (como obtener valor?)

[slcarra]

Tengo dentro de un datagrid un combobox. Este datagrid lo paso a un dataset para ser usado por un crystal reports.
Mi problema es que todos los campos pasan bien, los de texto, checkbox, etc.
Pero los campos que tienen combobox no puedo hacerlos funcionar.
Lo que me toma es el indice del combobox y este fue cargado desde una tabla de sql y no se como puedo recuperarlo, les paso el código a ver si alguien me da una manito.

ds = New DSReports
Dim tbStyle As DataGridTableStyle
tbStyle = Grid.TableStyles(0)

Dim dataMember As String
dataMember = Grid.DataMember

Dim dataSource As DataSet
dataSource = Grid.DataSource

Dim column As DataGridColumnStyle
Dim nI As Integer

Dim drow As DataRow
For Each drow In dataSource.Tables(dataMember).Rows

Dim drowNew As DataRow
drowNew = ds.Tables("Datos").NewRow

nI = 1
For Each column In tbStyle.GridColumnStyles

Select Case column.GetType.Name.ToString

Case "DataGridTextBoxColumn"
drowNew.Item("Campo" + nI.ToString) = drow.Item(column.MappingName)
nI += 1
Case "DataGridTimePickerColumn"
drowNew.Item("Campo" + nI.ToString) = CDate(drow.Item(column.MappingName)).ToShortDateSt ring.ToString
nI += 1
Case "MyDataGridBoolColumn"
If (Convert.ToString(drow.Item(column.MappingName)) = True) Then
drowNew.Item("Campo" + nI.ToString) = "X"
nI += 1
Else
drowNew.Item("Campo" + nI.ToString) = " "
nI += 1
End If

' en este case tengo el problema el codigo
' que esta adentro son pruebas ya que no se que hacer

Case "DataGridComboBoxColumn"


' el drow.Item(column.MappingName) me devuelve el indice del combo box
Dim codCombo = drow.Item(column.MappingName)

Dim cbxdgr As UsersControls.DataGridComboBoxColumn = column


Dim arrDrow() As DataRow = dataSource.Tables("ConsultaTiposIva").Select(colum n.MappingName + "='" + codCombo + "'")

If (arrDrow.Length > 0) Then
drowNew.Item("Campo" + nI.ToString) = arrDrow(0).Item("IvaDescrip")
nI += 1
End If

Case "DataGridButtonColumn"
drowNew.Item("Campo" + nI.ToString) = " "

End Select

Next


Saludos Seb@