Create a recordset with an SQL SELECT query and load your combos from the results. Assuming you are using ADO code to connect to your database, and example would be
VB Code:
  1. Dim sSQL As String
  2. sSQL = "SELECT fieldname FROM tablename "
  3. Set rs = New ADODB.Recordset
  4. rs.Open sSQL, ConnectionObject
  5. Do While Not rs.EOF
  6.      Combo6.Additem rs.Fields.Item("fieldname").Value
  7.      rs.MovedNext
  8. Loop
  9. rs.Close
  10. Set rs = Nothing