Visual Basic - Llenar combo con columna de excel

Hola a tod@s.

El problema es que puedo llenar un combo leyendo una fila de una tabla de excel sin ningun problema pero con una columna solo lee la primera celda del rango que le introduzco.

Aquí está el código:

Dim cnn As ADODB.Connection
Dim fld As ADODB.Field
Dim rs As ADODB.Recordset
Dim rang As String

Set cnn = New ADODB.Connection
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\qc\taula.xls;" & _
"Extended Properties=""Excel 8.0;HDR=no;IMEX=1"""
.Open
End With

Set rs = New ADODB.Recordset
rs.Open "select * from [hoja1$b1:bz1]", cnn, adCmdtext

For Each fld In rs.Fields
Combo2.AddItem (fld.Value)
Combo3.AddItem (fld.Value)
Next

rs.Close
Set rs = Nothing

End Sub

Como veis ahora lleno los dos combos con la misma fila pero necesito llenarlo con una columna (por ejemplo de A1:A100)

Gracias