VBA: напрямую "закачать" диапазон в ComboBox1 из закрытого файла Excel?

'' Добавить в проект ссылки на библиотеки:
'' Microsoft ActiveX Data Objects 2.X Library
'' Microsoft Excel XX.0 Object Library
'' Microsoft Access XX.0 Object Library
Private Sub UserForm_Activate()
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisDrawing.Path & "\dumbyand pokey.xls;Extended Properties=Excel 8.0;" ''<---измени полное имя файла здесь
.CursorLocation = adUseClient
.Open
End With
Set rst = New ADODB.Recordset
Dim strQuery As String
strQuery = "SELECT * FROM [Sheet1$A1:D1000]" '' <---измени адрес диапазона здесь
          rst.Open strQuery, cn, adOpenDynamic, adLockOptimistic
          Dim varFld As Variant
          Dim i As Integer
          Dim j As Integer
          varFld = rst.GetRows
          ReDim dataarr(0 To UBound(varFld, 2), 0 To UBound(varFld, 1)) As Variant
          For i = 0 To UBound(varFld, 2)
               For j = 0 To UBound(varFld, 1)
                    dataarr(i, j) = varFld(j, i)
               Next j
          Next i
Me.ComboBox1.ColumnCount = UBound(dataarr) + 1
Me.ComboBox1.List = dataarr
Me.ComboBox1.ListIndex = 0
Set rst = Nothing
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub