コンボボックスに取得したレコードデータを表示したい

環境：winxp、vb6、access2000

以下の様にアクセスから抽出したレコード"rstdata"をCombo1のデータソースに指定してコンボボックスに表示したいのですが、何も表示されません。
原因が分かる方がいらっしゃればご教示ください。


*******コード********
Dim cn As New ADODB.Connection
Dim cmd As ADODB.Command
Dim rstdata As ADODB.Recordset
Dim strSQLdata As String
Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;" & _
"Data Source=aaa.mdb;" & _
"Mode=Read"
cn.Open
Set rstdata = New ADODB.Recordset
strSQLdata = "Select 項目名 From T_SHIKENDATA order by ID"
rstdata.Open strSQLdata, cn, adOpenStatic
Set Combo1.DataSource = rstdata
rstdata.Close
Set rstdata = Nothing
cn.Close
Set cn = Nothing

No.1 ベストアンサー 回答者： chibita_papa 回答日時： 2008/08/09 14:26

Set Combo1.DataSource = rstdata

Combo1.DataField = "項目名"
ですと、カレントレコードのみのようですね。


Do Until rstdata.EOF
Combo1.AddItem rstdata("項目名")
rstdata.MoveNext
Loop
ではダメでしょうか。

この回答へのお礼

早速のご回答ありがとうございました。
教えて頂いたとおりで大丈夫でした。
非常に助かりました。ありがとうございます。

お礼日時：2008/08/09 16:31