"dir" komutu

Merhaba arkadaşlar..

Yaptığım bir veritabanı programında herkişinin resminin olacağı bir alan için
forma bir picturebox yerleştirdim.

resimleri access dosyasında ole nesnesini kullanarak tutmayacağım.
kimlik.text için her değiştiğinde picturebox da
kimlik.text & ".jpeg"
isimli remimi çağaracak.

Kayıtlarda adı geçen bir kişinin resimi olmayınca da bos.jpeg isimli resimi çağaracak
İşte bunun için resim klasöründe kişiye ait resimin olup olmadığına dair küçük bir kontrol koydum.

dir komutunu kullanıyorum. Kodlar doğru çalışmasına rağmen veriler kayıtseti arasında dolaşmak felaket yavaşladı.

Acaba bunun sebebi nedir ? Resim gösterme ve bunun gibi işlemlerin apilerle yapıldığını duymuştum?

Eğer gerçekten böyleyse bana küçük bir örnek kod yazıp açıklamasını yapar mısınız ?

// Programı yavaşlatan kodlardan örnekler..


Private Sub txtFields_Change(Index As Integer)

File = Dir(App.Path & "\resim\" & txtFields(15).Text & ".jpg")

If File = "" Then
Picture1.Picture = LoadPicture(App.Path & "\resim\bos.jpg")
Else

Picture1.Picture = LoadPicture(App.Path & "\resim\" & txtFields(15).Text & ".jpg")
End If

tamam ..
sorunu çözdüm arkadaşlar.