Kapalı Dosyay Veri Yaz Yardım

[3641]

Arkadaşlar aşağıdaki kod Windows 8 / Ofis 2010 kurulu makinada çalışmasına rağmen
Windows Xp / Ofis 2010 Kurulu Makinada çalışmamakta

Nasıl düzeltebilirim acaba

Sub veri_yaz()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Byte
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=\\192.168.1.33\teklif_detay\Veri.xls;Extended Properties=""Excel 12.0;HDR=yes"""
rs.Open "Select * from [DETAY$]", conn, 1, 3
baslik = InputBox("Başlık Giriniz", "BAŞLIK", "Başlık" & rs.RecordCount + 1)
If Not rs.EOF Then
rs.AddNew
rs(0).Value = baslik
rs(1).Value = Format(Date, "dd.mm.yyyy")
rs(2).Value = Cells(2, "AR").Value
rs(3).Value = Cells(3, "AR").Value
rs(4).Value = Cells(4, "AR").Value
rs(5).Value = Cells(5, "AR").Value
rs(6).Value = Cells(6, "AR").Value
rs(7).Value = Cells(7, "AR").Value
rs(8).Value = Cells(8, "AR").Value
rs(9).Value = Cells(9, "AR").Value
rs(10).Value = Cells(10, "AR").Value
rs(11).Value = Cells(11, "AR").Value
rs(12).Value = Cells(12, "AR").Value
rs(13).Value = Cells(13, "AR").Value
rs(14).Value = Cells(14, "AR").Value
rs(15).Value = Cells(15, "AR").Value
rs.Update
rs.Close
End If
MsgBox "Kayıt Başarı ile girildi."
End Sub

Hatayı burada gösteriyor...
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=\\192.168.1.33\teklif_detay\Veri.xls;Extended Properties=""Excel 12.0;HDR=yes"""


Saygılarımla

 

[3641]

Yardımcı olabilecek arkadaş varmı acaba.

 

[3641]

ACE.OLEDB.12.0 yerine başka bir bağlantı biçimi önerebilirmisiniz.
Yanılmıyorsam ACE.OLEDB.12.0 bağlantı dizesinden kaynaklanıyor ama bir türlü değiştiremedim.

 

[3641]

Sorun çözülmüştür.