Intendi di cambiare questo:

codice:
SendMessage cmbNomeCombo.hwnd, CB_SETITEMDATA, lngAddIndex, ByVal rsPopolaCombo!ID
in questo:

codice:
SendMessage cmbNomeCombo.hwnd, CB_SETITEMDATA, ByVal lngAddIndex, ByVal rsPopolaCombo!ID
Perchè se è così non cambia nulla...