コンボボックスに表示させた以外のデータ項目をファイルに書き込むには？ (ID:105521)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 現在、コンボボックスのセットは下記の通りやっています。 Form1.combo_name.Clear my_sql = "SELECT LSS1_CD,LSS1_NM FROM LSS1_MST" Set rs = DB.OpenRecordset(my_sql,dbOpenSnapshot) Do Until rs.EOF Form1.combo_name.AddItem rs.Fields("LSS1_NM") rs.MoveNext Loop 先程、教えていただいた方法で、 i=0 を Do Until の上で定義し、i=i+1 を Loop の前に入れてみましたところ、 ＜ 実行時エラー'9':インデックスが有効範囲にありません。＞ となってしまったので質問させていただきました。 いかかでしょうか？