[حافظ حافظ]

السلام عليكم.اخواني لدي ملف exe فيجوال 6 اشغلو من اللرسورس بهذا الكود

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dir As String = My.Computer.FileSystem.SpecialDirectories.Temp
       Dim filename As String = dir + "Project1.exe"
       IO.File.WriteAllBytes(filename, My.Resources.Project1)
       Process.Start(filename)
   End Sub

قاعدة بيانات يلي تتبع هذا المشروع الفيجوال6 وضعتها بال debug .طيب لما اجيت اشغل يطلعلي خطـأ.كيف يمكن يكون كود مسار قاعدة البيانت داخل مشروع الفيجوال6 الله يرضى عليكو.هو مكتوب هيك

كود :

Private Sub Form_Load()
DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATACUSTOMER.mdb"
End Sub