Передать значение группы ячеек в комбобокс - VB

Формулировка задачи:

Ребята подскожите,

Combo1.text=Xl.Worksheets("БД").Range("A2:A6").Value

, почему у меня выдает ошибку на данном коде, которым пытаюсь передать данные с листа в комбо1., правда если передаю одну ячейку все норма!

Решение задачи: «Передать значение группы ячеек в комбобокс»

textual
                            Листинг программы 
                        

                            Private Sub Form_Activate()
Set Xl = CreateObject("Excel.Application")
Xl.workbooks.Open App.Path & "\ккм.xls"
Xl.Visible = False
 
For Each x In Xl.Worksheets("БД").Range("A2:A10").SpecialCells(2).cells
    Combo1.AddItem x
    Combo3.AddItem x
    Combo4.AddItem x
Next
 
For Each s In Xl.Worksheets("БД").Range("B2:B10").SpecialCells(2).cells
    Combo2.AddItem s
Next
 
Xl.workbooks("ккм.xls").Close False
Xl.quit
Set Xl = Nothing
End Sub
                        