سوال در مورد ADO Data Control

[liaghat]

سلام
فرض کنید یک ADO Data Control به پایگاه داده به درستی متصل شده باشد. بعد از مدتی به دلیلی بخواهیم پایگاه داده را پاک کنیم. بدون دست زدن به متن برنامه چه کنیم تا کاربر هنگام شروع برنامه با پیام :
Coud not find file 'S:\test.mdb'
برخورد نکند؟

[mpmsoft]

دوست عزیز شما هم با کنترل خطا ها می تونی متوجه خطا بشی

و یا اینکه قبل از بازکردن بانک ببینی اون فایل وجود داره یا نه



Public Function VerifyFile(Filename As String) As Boolean
On Error Resume Next
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.fileexists(Filename) Then VerifyFile = True Else VerifyFile = False
End Function