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

はも  2005-09-28 20:11:57  No: 125830  IP: [192.*.*.*]

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

編集 削除
回答X  2005-09-29 14:07:09  No: 125831  IP: [192.*.*.*]

Private Sub Combo1_DropDown()
でセレクトしてるけど、フォームロードでセレクトして
先にコンボに設定してみたら？

編集 削除