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

質問

環境：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 · ベストアンサー

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

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

お礼

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