Access - Como llenar Cuadros en tiempo de ejecucion

Hola: yo tengo que llenar un cuadro combinado, en forma DINAMICA de acuerdo al codDestino que estoy ingresando por teclado, yo en Visual Basic lo realizaba de la forma que muestro abajo, pero en Access no tengo la propiedad AddItem para hacerlo de esta manera.
Si existe alguna otra forma me seria de mucha utilidad que me lo respondan.
saludos
Alejandro

Set rsPaneles = CurrentDb.OpenRecordset("select * from tpaneles where codDestino = " & Int(txtCodDes.Value) & " ")
Do While Not rsPaneles.EOF
cboPanelTecho.additem rsPaneles!tpopanel
rsPaneles.MoveNext
Loop
rsPaneles.Close

Esto y ya

Set rsPaneles = CurrentDb.OpenRecordset("select * from tpaneles where codDestino = " & Int(txtCodDes.Value) & " ")
Do While Not rsPaneles.EOF
cboPanelTecho.rowsource = "select * from tpaneles where codDestino = " & Int(txtCodDes.Value) & " "

rsPaneles.MoveNext
Loop
rsPaneles.Close