Excelでワークシートにコンボボックスを作成するExcelを選択してください。

Question

（モジュール - パブリック関数で）ExcelでsqlDbとの接続が良好です。

私はこの接続をうまく動作する単純なSelectクエリ（Sheet1コード）で使用しました。コードの下あたり：今すぐではなく出力よりも

Private Sub Selection() 

Dim rs As Object 
Set rs = CreateObject("ADODB.Recordset") 

Dim sqlstr As String 
sqlstr = "Select * from Selection" 

Call connectDatabase 
rs.Open sqlstr, DBCONT 

If rs.RecordCount > 0 Then 
    For i = 1 To rs.RecordCount 
      With ThisWorkbook.Sheets("Sheet1") 
      .Cells(i, 1).Value = rs(0) 
      .Cells(i, 2).Value = rs(1) 
      End With 
      rs.movenext 
    Next i 
Else 
    MsgBox "FFS" 

End If 
rs.Close 
Set rs = Nothing 
Call closeDatabase 

End Sub 

のSheet1のこれらの細胞（1,1）への結果と（1,2）は、は、私は上記の結果は次の使用例は、シート1の私のComboBox1を移入し、と離れてやりたいです出力。私は多くの解決策を見てきましたが、私は苦労しています。

あなたが私に最善の答えを手伝ったり、指示したりできることに感謝します。

ありがとうございます。

Dasal（あなたはそれはあなたが使用しているコンボボックスこれに依存して設定する方法）あなたのコンボボックスオブジェクトを設定

Answer 1

Private Sub Selection() 

Dim rs As Object 

Set rs = CreateObject("ADODB.Recordset") 

Dim sqlstr As String 
sqlstr = "Select * from Selection" 

Call connectDatabase 
rs.Open sqlstr, DBCONT 

ComboBox1.Clear 
If rs.RecordCount > 0 Then 
    For i = 1 To rs.RecordCount 

     ComboBox1.AddItem rs(1) 
      rs.movenext 
    Next i 
Else 
    MsgBox "FFS" 

End If 
rs.Close 
Set rs = Nothing 
Call closeDatabase 

End Sub