Do Until myrec.EOF Comb1.AddItem myrec.Fields("country_name").Value 'country_nameフィールドを読み出し Comb2.AddItem myrec.Fields("country_name").Value '以下Comb5までのコンボボックスについて書く。 myrec.MoveNext Loop