Non si capisce cosa centri il frammento di codice postato.
Per la dichiarazione corretta della funzione :
codice:
Private Function RetrieveIdCust(ByRef Combo As ComboBox , id As ADODB.Recordset) As Integer