VBAコンボボックスにDBからの値を表示させたい

Question

DBから値を配列として受けとるところまでは出来たのですが、コンボボックスに入れ込むことができません。
DBはSQLSERVER2014を使っています。
M_TANTOSHAテーブルからTANTOSHA_IDを取り出してコンボボックスに入れたいです。

Sub conDB()

    Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim CON As String
    
    
    '↓DB接続情報
    CON = "Provider = SQLOLEDB;"
    CON = CON & "DATABASE=******;"
    CON = CON & "UID=******;"
    CON = CON & "PWD=*******;"
  
      strSQL = "select TANTOSHA_ID from M_TANTOSHA"
     
      Set rs = New ADODB.Recordset
      
      rs.Open strSQL, CON
      
      rs.MoveFirst
      
      
      Dim i As Long, hairetsu As Variant
      hairetsu = rs.GetRows()
    
      rs.Close

      For i = 0 To UBound(hairetsu, 2)
      Debug.Print hairetsu(0, i)
      Next i
     
     Set rs = Nothing
     Exit Sub
    
End Sub

再投稿↓

Private Sub ComboBox1_Change()
Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim CON As String
    
    
    
    'DB??????i?[
    CON = "Provider = SQLOLEDB;"
    CON = CON & "DATABASE=****;"
    CON = CON & "UID=*****;"
    CON = CON & "PWD=*****;"
  
     
     
      
      '1.SQL????o?????V?[?g????
      
       strSQL = "select TANTOSHA_ID from M_TANTOSHA"
      
      Set rs = New ADODB.Recordset
      
      rs.Open strSQL, CON
      
      rs.MoveFirst
      
      Dim i As Long, hairetsu As Variant
      hairetsu = rs.GetRows
      
      rs.Close
      
      'このような感じで試していました。
      '1行だけ表示されたり、何も表示されなかったりします。
      ComboBox1.AddItem
      ComboBox1.List(0, 1) = hairetsu(0, 1)
 
     Set rs = Nothing
     Exit Sub
    
End Sub

Comments

[ttyp03]

コンボボックスを操作しているコードが見当たりませんが、コンボボックスにアイテムを追加する方法自体がわからないのでしょうか？

[ttyp03]

コンボボックスはシート上にあるのでしょうか？フォーム上でしょうか？フォームコントロールのコンボボックスでしょうか？ActiveXのコンボボックスでしょうか？

[rikaruto]

説明不足で申し訳ございません！フォーム上にコンボボックスがあります。

[rikaruto]

コンボボックスに入れようとしたものを再度投稿させていただきます。