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