Achei aqui no meu Google Docs, uma dica que tinha guardado a muito tempo. Pode ser que seja útil pra alguém. ' Gambas class file PUBLIC combo AS ComboBox PUBLIC SUB ToggleButton1_Click() listacombo(ComboBox1, "select * from cadastro") END PROCEDURE listacombo(Combo AS ComboBox, busca AS String) DIM r AS Result DIM conta AS Integer conexao.conectar_banco r = conexao.bd.Exec(busca) r.MoveFirst Combo.Add(r!nome_cad) FOR conta = 1 TO r.Count - 1 r.MoveNext Combo.Add(r!nome_cad) NEXT END