tilføje items til combo box fra en function

jeg vil gerne have lavet en function til at smide data ind i en combobox fra en function

jeg har følgende function i et modul

Public Function vishovedmenu(name, selected)

Set objrs = query("SELECT * FROM menumain")

  While Not objrs.EOF
    name.AddItem item:=objrs!name
     
      objrs.MoveNext
    Wend



End Function

og i min form load har jeg følgende

combos = vishovedmenu(name:="combo1", selected:="")