Sayın Accessman aşağıdaki kodu denermisiniz .

dim ctl as variant

for each ctl in me.liste0.ItemsSelected

me.liste0.selected(ctl)=false

next