Kod:
Dim Dosya As String
Dim Durum As String
Dosya = CurrentProject.Path & "\datalar.mdb"
Durum = Dir(Dosya)
If (Durum = "") Then
MsgBox "dosya yok, bulunamadı."
Else
MsgBox "dosya bulundu korkmayın, emin ellerde :)"
End If