Spread 안에 Combobox 추가하기

                            'spread 이름    , 쿼리문       , row         , col       , 콤보박스에 넣을 데이터
Private Sub SpreadComboSetting(Sp As Control, Str As String, iRow As Long, iCol As Long, Data As String)
 
Dim Rs2 As New ADODB.Recordset
Rs2.Open Str, Cn, adOpenStatic, adLockReadOnly
 
Sp.TypeComboBoxClear iCol, iRow
    If Not Rs2.EOF Then
        With fpSpread1
            Do While Not Rs2.EOF
                .Row = iRow
                '해당하는 col 부분에 콤보박스 추가해준다. + 연산자 이용
                .Col = iCol: .TypeComboBoxList = .TypeComboBoxList + (Rs2.Fields(Data))
                Rs2.MoveNext
            Loop
        End With
    End If
Rs2.Close: Set Rs2 = Nothing
 
End Sub