Problema in Access con listbox

[Mychy]

Reinserisci Cancel As Integer

Poi cambia l'istruzione:
caselladitesto.text =Me.list18.Column(0)

in
caselladitesto.value =Me.list18.Column(0)