e allora questo codice dovrebbe funzionare (ovviamente mettendo i nomi corretti degli oggetti)

codice:
Do until MioRecorset.EOF
   If IsNull(MioRecordset.CampoNUMERO) or Trim(MioRecordset.CampoNUMERO)="" Then
      MiaCombo.AddItem(" ")
      'Oppure MiaCombo.AddItem("-VUOTO-")
   Else
      MiaCombo.AddItem(MioRecordset.CampoNUMERO
   End if
   MioRecorset.MoveNext
loop