Ti scrivo quello che ho fatto io (con la listbox), supponendo di avere aperto un recordset.

codice:
iRiga = 0
While not rs.eof
  ListBox1.AddItem iRiga
  ListBox1.Column(0, iRiga) = rs("id")
  ListBox1.Column(1, iRiga) = rs("descr")
  rs.MoveNext
  iRiga = iRiga + 1
Wend