Excel 2007-Adodb bağlantsında Run-time error 3706 hatası

[hsayar]

Açık bir çalışma kitabından kapalı bir çalışma kitabına bağlanmaya çalışınca daima .Properties("Extended Properties").Value = "Excel 8.0" satında excel 2007 de hata alıyorum nedeni ne olabilir?

Örnek dosya aşağıdaki ilişimde mevcuttur:
http://excel.web.tr/showthread.php?t=70596

Run-time error 3706
Sağlayıcı bulunamıyor, düzgün yüklenmemiş olabilir diyor sorun nedir?

Not: adımlayınca hata UserForm_Initialize olayınını .Properties("Extended Properties").Value = "Excel 8.0" satırında oluşuyor

Private Sub UserForm_Initialize()
'On Error GoTo Son
Dim Baglanti As ADODB.Connection
Dim Kayit1 As ADODB.Recordset
Dim FSO As Object
Dim SQLStr, Kaynak As String
Kaynak = Application.ActiveWorkbook.Path & "/" & "data.xls"
'***********************************************************************
SQLStr = "SELECT distinct[Sicil] FROM 
[liste$a1:g1000]"
'***********************************************************************
Set Baglanti = CreateObject("ADODB.Connection")
    With Baglanti
        .Provider = "Microsoft.Jet.OLEDB.4.0"
   [COLOR=Red]     .Properties("Extended Properties").Value = "Excel 8.0"[/COLOR]
        .Properties("Data Source").Value = Kaynak
        .CursorLocation = adUseClient
        .Mode = adModeReadWrite
        .Open
    End With
If Err = 0 Then

 

[Recep İpek]

"Excel 10.0" olarak deneyiniz.

 

[hsayar]

"Excel 10.0" olarak deneyiniz.

Olumsuz hocam...
ISAM Hatası veriyor resim ektedir...
http://www.excel.web.tr/attachment.php?attachmentid=70623&stc=1&d=1248705195

 

[hsayar]

evde yenide denedim 8,10,12 olsada sağlayıcı bulunamıyor diyor....
bir ara ek bir paket kurmuştum işyerine ama şimdi adını çıkartamadım ondan olabilir mi?

 

[Zeki Gürsoy]

Bir de ODBC conn. string'i deneyin.

Driver={Microsoft Excel Driver (*.xls)};Dbq=C:\Test.xls;ReadOnly=True;

 

[hsayar]

Bir de ODBC conn. string'i deneyin.

Driver={Microsoft Excel Driver (*.xls)};Dbq=C:\Test.xls;ReadOnly=True;

Zeki hocam alakanıza teşekkür ederim, ancak doğrusunu söylemek gerekirse anlamadım. bir de dikkatimi çeken şu oldu yolu direkt vermek zorundayız ancak bende 1 nolu vetitabanında bulamazsa 2 ye, 2 de bulamazsa 3 e, 3 te bulamazsa hata gönderiyor. nasıl düzenlenmlidir?

gerçek soru aşağıdaki ilişimdedir.
http://excel.web.tr/showthread.php?t=72024

 

[hsayar]

bilgisayarı formatlayıp yeniden kurunca soru ortadan kalktı.....