コンボボックスにMDBのフィールド名を表示するには？

解決

---

こんばんは
最近、VB6を始めてみました。

コンボボックスにMDBのフィールド名を表示
させたいのですが、何も表示されません。

ご指導の程、宜しくお願いします。




Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Combo1_DropDown()
    Dim mySQL As String
    
    mySQL = "SELECT 題名 FROM 本"
        
    Set rs = New ADODB.Recordset
    
    rs.Open mySQL, cn, adOpenStatic
    Set Combo1.DataSource = rs

End Sub


Private Sub Form_Load()
   
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
                        & "Data Source=C:\Book.mdb"
    cn.Open
End Sub
Private Sub Form_Unload(Cancel As Integer)
    rs.Close
    cn.Close
End Sub

編集 削除

---

重複送信してしまいました。
すみません。

編集 削除

---

Form_Loadイベントに
Combo1.AddItem "題名"
これでどだぁ

編集 削除

---

名前

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

本文

←解決時は質問者本人がここをチェックしてください。