Listindex not following

If cboVille.Text <> "" Then
VL = cboVille.Text
postcode = cboCP.Text
paysnr = cboPays.ItemData(cboPays.ListIndex)

Set rsCVille = databank.OpenRecordset("Select * from tblPostcodes where Pays like '" & paysnr & "' and PCode like '" & postcode & "'")
CountVille = 0
Do Until rsCVille.EOF
VL = LCase(rsCVille.Fields("Ville"))
tVL = LCase(cboVille.Text)
If VL = tVL Then
CountVille = CountVille + 1
nrVille = rsCVille.Fields("PcID")
cboVille.Text = rsCVille.Fields("ville")
Else
End If
rsCVille.MoveNext
Loop
end if


When I Click on the cbo, the listindex follows, but when I just type it, it doesn't.

How come and how can it be solved

thx

which cbo... you have quite a few...
please re-write you question giving only the required code and make it a bit more clear what you ar trying to do and what the problem is. Thanks

I think you have to set the style of your Combo to 2 - Dropdown List.

It's all about cbo-ville

and the style of the cbo-box has to stay on 0 - Dropdown Combo
because else i can't get a list and type in the box