AAA!!! es mas simple:
Si tienes un textbox, ponle en el evento CHANGE:
Código vb:
Ver originalIF VAL(txtTEXTBOX.TEXT)>0 THEN
Me.cboLocalidad.text = Me.cboLocalidad.List(val(txtTEXBOX.TEXT))
END IF
Debes admitir solo numeros en el textbox, prueba a ver si funciona