[محمد خيري]

الله يبارك فيك يارب اخي priceoflorn موش عارف كيف اشكرك فعلا هذا ما اريد ضبطة كثر الف خيرك .بقيت لي نقطة اخيرة بهذا الملف و عشمي فيك كبير بعد الله
هذا الجزء باول الفورم2

كود :

   If Not IO.File.Exists(Application.StartupPath & "\Data.mdb") Then
           MsgBox("تعذر العثور على قاعدة البيانات" & vbCrLf & "ربما تم تغيير مكانها او اسمها", 16 + 524288, " Data  اسم القاعدة")
           End
           Exit Sub
       End If

فقط كيف يكون شكله لو كانت قاعدة بيانات  sqlserver كيف يتم التاكد من وجود ها