sunucuya bağlı ise dosya yolu vardır mantığı ile
dosya yolunu kontrol ederek yapılabilir mi aşağıdaki kodu dener misiniz?

If (Len(Dir("O:\"))) Then ' "O:\" kısmına ağ üzerindeki adresi yazabilirsiniz

  MsgBox "Bağlı"

Else

  MsgBox "bağlantı yok"

End If