先日はお世話になりました。おかげさまでコンボボックスについて理解を深めることが出来ました。

今回ご質問させていただくのは、Mysqlからのデータの呼び出しについてです。

フォーム上に５つのコンボボックスがあり、
（オフジェクト名：Comb1、Comb2、Comb3、Comb4、Comb5)
フォームを読み込んだ際、コンボボックスの値をMysqlサーバから取得する
プログラムを作成しています。
それぞれのコンボボックスには、同じフィールドを参照し、同じ値が入るようにしたいです。
（国名が表示されるコンボボックス）

サイトを参考にし、一つのコンボボックスからはデータの取り出しが出来ました。
しかし、残り4つのコンボボックスの値取得に関しては、まだ出来ておりません。
いろいろ試しては見ましたが、なかなかうまくいきません。
下記は、一つのコンボボックスからはデータの取り出しが出来たコーディングです。


Private Sub Form_Load()

Dim myADOcon As ADODB.Connection
Dim myrec As ADODB.Recordset

Set myADOcon = New ADODB.Connection
Set myrec = New ADODB.Recordset

'MySQLODBC:MySQL ODBC 3.51、サーバ名：×××、データベース名：testdb、ユーザー名：user、パスワード：9999に接続
myADOcon.Open "Driver={MySQL ODBC 3.51 Driver};SERVER = ×××;DATABASE=testdb;UID=user;PWD=9999;"

'countryテーブルをオープン
myrec.Open "select * from country", myADOcon

myrec.MoveFirst

Do Until myrec.EOF
Comb1.AddItem myrec.Fields("country_name").Value 　　　　　　'country_nameフィールドを読み出し

myrec.MoveNext
Loop

End Sub

どのように付け加えれば、５つのコンボボックスに同じ値を取得させることが出来ますでしょうか?
言葉足らず、汚いコードで大変申し訳ないですが、
ご教授のほど、よろしくお願いします。