Acceso vba: listbox additem multicolumn truncando en la coma

Question

Tengo un combobox con dos colunms, pero el primero está oculto y agrega valores a un listbox de la misma manera. Me doy cuenta de que el cuadro de lista está truncando la cadena en la segunda columna.

Este es mi código hasta ahora donde cmbPart es el cuadro combinado y lstPart es el cuadro de lista.

Me.lstPart.AddItem (CStr(Me.cmbPart.Value) & " ;" & CStr(Me.cmbPart.Column(1, Me.cmbPart.ListIndex))) 

noto que que cuando hay una coma (,) en la cadena que deja de mostrar el resto de Me.cmbPart.Column(1, Me.cmbPart.ListIndex).

¿Cómo puedo detener el comportamiento?

Answer 1

Aparentemente cadenas con comas en para ser agregadas a un bus de cuadro de lista multicolunm se encierran entre comillas simples.

Me.lstPart.AddItem (CStr(Me.cmbPart.Value) & " ;" & CStr("'" & Me.cmbPart.Column(1, Me.cmbPart.ListIndex)) & "'")