Fout 71 tijdens uitvoering bij opvragen foto

[HWV]

Beste,

Boven mijn userform heb ik het volgende staan.

Const sDir = "P:\Productions\Automatisering\Foto groot\"

Const rDir = "P:\Productions\Automatisering\Foto klein\"

Die ik dan verder in ijn code aanroep met

            Image2.Picture = LoadPicture(sDir & Cbo_Artikel.Value & ".jpg")

en

            frmFormulier.Image4.Picture = LoadPicture(rDir & Cbo_Artikel.Value & ".jpg")

Nu zou ik willen inbouwen als dat het pad niet bestaat, dat er dan geen medling gegeven wordt
Fout 71 tijdens uitvoering
schijf is niet gereed

en de code vastloopt

Dit komt ook dat ik de foto`s nu opvraag van een andere server.

dus eigenlijk twee vragen.

1) Hoe voorkom ik dat ik de foutmelding krijg, en dat het script vast loopt
2) kan ik zo inbouwen dat ik een servernaam opgeef met de daarbijbehorende wachtwoord om de foto`s op te halen.

Groet HWV


hieronder een deel van de code

Const sDir = "P:\Productions\Automatisering\Foto groot\"
Const rDir = "P:\Productions\Automatisering\Foto klein\"

Private Sub Cbo_ArtikelNaam1_Change()
    Image2.Picture = LoadPicture("")
    On Error Resume Next
    Dim oRng As Range
    Set oRng = Workbooks("GST1- Eenheden.xls").Sheets("Artikelen").Cells.Find(what:=Cbo_ArtikelNaam1.Value, LookIn:=xlValues, MatchCase:=False)
        If oRng <> "" Then

            Cbo_Artikel.Value = oRng.Offset(0, -1).Value
            TXT_Artikelnummer.Value = oRng.Offset(0, -1).Value
            Omschrijving1.Value = oRng.Offset(0, 0).Value
            Omschrijving2.Value = oRng.Offset(0, 1).Value
            Verpakt.Value = oRng.Offset(0, 2).Value
            Image2.Picture = LoadPicture(sDir & Cbo_Artikel.Value & ".jpg")
            frmFormulier.Image4.Picture = LoadPicture(rDir & Cbo_Artikel.Value & ".jpg")
        Else
            Artikelnummer.Value = ""
            Txt_Omschrijving.Value = ""
            Txt_Verpakt.Value = ""
            Image2.Picture = LoadPicture("")
        End If
End Sub