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

名前

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

本文 こんばんは 最近、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