Kapalı Dosyadan Combox'a veri almak

[ÖZLÜCE]

Merhaba

Private Sub UserForm_Initialize()

Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=" & "c:\mm\veri1.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[Sayfa1$A165536]")

Do While Not rs.EOF
ListBox1.AddItem rs(0)
ListBox2.AddItem rs(1)
rs.MoveNext

Loop
rs.Close
baglanti.Close

End Sub

Yukarıdaki örnekte, dosya uzantısı .xls olduğu zaman bağlantı çalışıyor. Fakat uzantı .xlsm olduğu zaman hata veriyor.
Bu konuda yardımlarınızı bekliyor ve şimdiden teşekkür ediyorum.