aşağıdaki kod bende çalıştı dilerim işinize yarar
Açılır kutu accessten farklıymış
ComboBox1.Column = ADO_RS.GetRows kodu ile alıyormuş

Dim Sql As String

Dim ADO_CN As Object

Dim ADO_RS As Object



Set ADO_CN = CreateObject("Adodb.Connection")

Set ADO_RS = CreateObject("adodb.recordset")



SQL = "SELECT F1 as HY1, F2 as Hy2 "

SQL = Sql & vbCrLf

SQL = Sql & "FROM [Sayfa1$f11:g15" & "] ORDER BY F1 ;"



ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.FullName & ";extended properties=""excel 8.0;hdr=no"""

ADO_CN.Open

ADO_RS.Open SQL, ADO_CN, 3, 1

'

'   Eğer Hiç Kayıt Yoksa

If ADO_RS.RecordCount = 0 Then

    ADO_RS.Close

    ADO_CN.Close

    Set ADO_RS = Nothing

    Set ADO_CN = Nothing

    MsgBox "Kayıt Bulunamadı.", vbCritical, "Veri Yok"

    Exit Sub

    End If

ADO_RS.movelast

ADO_RS.MoveFirst

 

 ComboBox1.Column = ADO_RS.GetRows



ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

bu arada sağolun @feraz hocam dediğiniz gibi referans eklemeden yaptım)