[نيمو]

حسب فهمي للموضوع

كود :

If My.Computer.Name = "DESKTOP-UTV1793" Then
           'server("DESKTOP-QRSLB4V\SQL_2019_R2")
           'FILL_COMBO()
           MsgBox("OK")
       Else
           MsgBox("سيرفر مختلف")
       End If

جربت اكتب اسم الكمبوتر الخاص بي اشتغل البرنامج فانت لما تشغل البرنامج على سيرفر اسمه

كود :

SQL_2019_R2

وتخلي امتداده او مكانه

كود :

DESKTOP-QRSLB4V\SQL_2019_R2

طبعا مايتعرف على الاسم او السيرفر الفرعي
حسب ما فهمت من المشكله لازم تخلي شرط للاتصال اذا فرعي تنطيه لوكيشن اخر واذا رئيسي لوكيشن مختلف