DBカラムをコンボボックスに設定する方法

VB初心者ですみませんが、どなたか教えてください。

以下のようにADOにてDBのカラムからデータを取得し、コンボボックスに設定をしたいのですが、よくわかりません。
コンボボックスのはじめに空白→DBの項目を設定→最後に”なし”を設定したいのですが、教えてください。

Dim adors As New ADODB.Recordset
adors.Open "SELECT A_FIELD FROM TABLE",・・・・

If adors.RecordCount <> 0 Then
ComboBOX.AddItem ("")　'コンボボックスのはじめに空白を設定
Set ComboBOX.RowSource = adors
ComboBOX.MatchEntry = dblExtendedMatching
ComboBOX.ListField = "A_FIELD"
ComboBOX.AddItem ("なし")　'コンボボックスの終わりにに’なし’を設定
End If

No.1 回答者： redfox63 回答日時： 2008/11/13 20:18

お使いの VBは何でしょう？

ComboBoxは標準のコンボボックスですか？
標準のコンボボックスなら RowSourceやListFieldはありません
DBコンボならば AddItemが何ですし ・・・

その元のなっているadorsをコピーして最後の『なし』を追加したものを ComboBOXのRoｗSourceに設定でしょうね

この回答へのお礼

ありがとうございました。
もう少し検討します。

お礼日時：2008/11/13 21:19