Ağdaki kapalı dosyadan veri alma

[kemal turan]

Merhaba,
Aşağıda herhalde Korhan hocamın çalışmasında kod aynı klasörde olan kapalı dosyadan veri alıyor.
Dosya yolu \\192.168.1.123\cd olan dosya ile değiştirmeye çalıştım.
MyPath = Application.ThisWorkbook.Path & "\\192.168.1.123\cd" & "PERSONEL.XLS" şeklinde ,
userformda bulunan
RS.Open SQLStr, DB, 1, 3 satırında hata veriyor.
MyPath = satırında \\192.168.1.123\cd dosyayolu nasıl olmalı.

Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
MyPath = Application.ThisWorkbook.Path & "\" & "PERSONEL.XLS"
'dosya yolu
'"\\192.168.1.123\cd"

DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & MyPath
End Sub

 

[mancubus]

MyPath = "\\192.168.1.123\cd\PERSONEL.XLS"

bu şekilde deneyin.
çözüm üretiyor mu?