ComboBox1.DataSource = ds.Tables("TableName") ' Oppure ds.Tables(Posizione_tabella_in_base_0)

Dim DT as System.Data.Datatable
' popolo la Datatable
ComboBox1.DataSource = DT

ComboBox1.DisplayMember = DT.Columns("FieldName")
ComboBox1.ValueMember = DT.Columns("Id")

function GetDisplayName(ShellFolder: IShellFolder; PIDL: PItemIDList;
                        ForParsing: Boolean): string;
var
  StrRet: TStrRet;
  P: PChar;
  Flags: Integer;
begin
  Result := '';
  if ForParsing then
    Flags := SHGDN_FORPARSING
  else
    Flags := SHGDN_NORMAL;

  ShellFolder.GetDisplayNameOf(PIDL, Flags, StrRet);
  case StrRet.uType of
    STRRET_CSTR:
      SetString(Result, StrRet.cStr, lStrLen(StrRet.cStr));
    STRRET_OFFSET:
      begin
        P := @PIDL.mkid.abID[StrRet.uOffset - SizeOf(PIDL.mkid.cb)];
        SetString(Result, P, PIDL.mkid.cb - StrRet.uOffset);
      end;
    STRRET_WSTR:
      Result := StrRet.pOleStr;
  end;
end;

if(sesso == 0){
         int controllo = 0;
        do{     
           // 1. Attende prima arrivare al bagno
           try {
               this.sleep(this.tArrivo);
           } catch (InterruptedException e) {
               System.out.println(e);
           }
           
           // Richiede l'entrata al bagno
           bagno2.accessoAlBagno(this);
           // Esce dal bagno
           bagno2.notificaUscita(this);
           controllo++;
      } while(controllo < 4);
     }else{
         int controllod = 0;
        do{     
             // 1. Attende prima arrivare al bagno
             try {
                 this.sleep(this.tArrivo);
             } catch (InterruptedException e) {
                 System.out.println(e);
             }
             
             // Richiede l'entrata al bagno
             bagno2.accessoAlBagno(this);
             // Esce dal bagno
             bagno2.notificaUscita(this);
             controllod++;
        } while(controllod < 8); 
     }