Visual Basic - Ayudenme, DataCombo de 2 columnas

Por favor si alguien sabe como hacer para poner dos columnas en un combobox (Datacombo), le agradeceria su ayuda enormemente...

Ah si se puede hacer, he visto programas que lo aplican, pero no se cual es el codigo o como lo hicieron, pero si se puede... el combo lo cargo por codigo...debe de ser un tonteria quizas pero no logra dar con ese codigo... Yo le pongo la propiedad columncont=2, pero luego tengo q darle los datos y es alli donde no se que como hacer

Por Favor

el recordset lo abris asi
select campo1,campo2 + ', ' + campo3 as gon from TABLA

Set DataCombo.RowSource = Rs
DataCombo.ListField = "gon"
DataCombo.BoundColumn = "campo1"

cualquier duda avisame

Pana me da error justo en la linea:

Set ComboBox1.RowSource = Rs

Dice:
Error 438 en tiempo de ejecucion. El objeto no admite esta propiedad o metodo.

El codigo es este:

Set reg = BDs.OpenRecordset("select MemoNo + ', ' + NombreFunc as gon from PlanillaViatico;")

Set ComboBox1.RowSource = Rs
ComboBox1.ListField = "gon"
ComboBox1.BoundColumn = "MemoNo"

El ComboBox1 es un DataCombo

prueba asi a ver que sucede

strSQL="select MemoNo,MemoNo + ', ' + NombreFunc as gon from PlanillaViatico"
Set reg = BDs.OpenRecordset(strSQL)
Set DataCombo.RowSource = reg
DataCombo.ListField = "gon"
DataCombo.BoundColumn = "MemoNo"

cualquier cosa avisame

Pana me da el mismo error justo en la misma linea:

Set DataCombo.RowSource = reg

Error 438 en tiempo de ejecucion. El objeto no admite esta propiedad o metodo.

Habra que cambiarle alguna propiedad?, me estoy volviendo loco...

Ah, uso Access XP (2002)