Recorrer Combobox y establecer sus Items como Nombre de Columnas en DGV

[CEB_ROJO]

Hola Namiwis, disculpá lo pesado pero acá te copio el código completo del botón que ejecuta la supuesta confección del DGV debiendo tomar como nombres de columnas c/u de los Text (Ítems) del Combo. Esta primer parte de código ya te la hube pasado anteriormente, pero te la vuelvo a pasar para que lo veas completo. El cmbTablas.text que ves ahí, es un combobox que se carga con una serie de Nombres de Tablas, Creadas por el usuario en Tiempo de Ejecución. Al seleccionar cualquiera de esas tablas en dicho combo y dar Click en el botón se ejecuta el código que te describo mas abajo, lleno el Combo
Try
Dim Valor As Object = Me.cmbTablas.Text
If (TypeOf Valor Is DataRowView) Then Return
Cadena2 = Convert.ToString(Valor)
Sentencia = Nothing
Sentencia = "SELECT Column_Name FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME= '" + Cadena2 + "'"
Conexion = New SqlConnection(Cs)
Conexion.Open()
Ds = New DataSet
Da = New SqlDataAdapter(Sentencia, Conexion)
Da.Fill(Ds, "Column_Name")
Me.cmbCamposTablas.DataSource = Ds.Tables(0)
Me.cmbCamposTablas.DisplayMember = ("Column_Name")

For i As Integer = 0 To cmbCamposTablas.Items.Count - 1
Dim Obj As New DataGridViewColumn
Dim Col As New DataGridViewTextBoxColumn
Obj = Col
Obj.HeaderText = cmbCamposTablas.Items(i)
Obj.Name = cmbCamposTablas.Items(i)
DataGridView1.Columns.Add(Obj)
Next

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If (Conexion.State And ConnectionState.Open) <> 0 Then
Conexion.Close()
End If
End Try