أرجو مساعدتكم في مشروع سجل المواليد

السلام عليكم
أعتذر عن الإزعاج ولكني أرجو مساعدتكم في مشروع فيجوال ستوديو 2008 وهو الأول لي ومطلوب مني من الإدارة

عندي مشكلة
أنا بصمم برنامج معاه قاعدة بيانات (Database1) وهي من داخل الفيجوال استوديو 2008 وليس عن طريق الأكسس أو الSQL وعملت حزمة البرنامج بالطريقتين Publish و Setup Wizard

في الطريقة Publish بعد تكوين الحزمة وإضافة الأدوات المساعدة مثل الSQL و Crystal Report وإنشاء الحزمة .. وبعد تسطيبها في كمبيوتر العميل يقول لي بأنه لا يجد ملف قاعدة البيانات ولم أجد البرنامج أساسا ف ال Program Files

في الطريقة Setup Wizard عن طريق مشروع جديد تم تحديد المكان ووضعت فيه الملف الخاص بقاعدة البيانات وأيضا الأدوات المساعدة مثل الSQL و Crystal Report وغيرها من الأدوات وبعد تثبيت البرنامج على كمبيوتر العميل وجد البرنامج قاعدة البيانات وكل شئ ولكن المشكلة أنه عند إدخال أو تعديل أو حذف أي بيانات لا يتم حفظها وأجد قاعدة البيانات كماهي لم يضاف إليها أي جديد أو تعديل على الرغم من أنه لا تظهر أي رسالة خطأ

ثانيا:
أريد إضافة Button عن طريقه يقوم بإنشاء نسخ إحتياطي متكرر لقاعدة البيانات ويتغير إسم النسخ بإضافة التاريخ أوتوماتيكيا

ثالثا:
في طريقة Setup wizard تظهر رسالتين في خانة الWarnings:
Warning 1: Invalid language characters in property 'Dependencies

Warning 2: Invalid language characters in property 'Files'

أرجو مساعدتكم
وشكرا جزيلا

كود :

Private Sub BackupDatabase()

        Dim MyDatabaseName As String = "Database1"

        Dim DatabasePath As String = Application.StartupPath & "\Database1.mdb"

        Try

            Using sfd As New SaveFileDialog

                With sfd

                    .CheckFileExists = True

                    .CheckPathExists = True

                    .FileName = MyDatabaseName & "-" & Date.Now.ToString("yyyyMMdd") & ".mdb"

                    ' النتيجة حتكون =  Database1-20130307.mdb

                    .Filter = "Microsoft Access Database (*.mdb)|*.mdb"

                    If .ShowDialog = Windows.Forms.DialogResult.OK Then

                        My.Computer.FileSystem.CopyFile(DatabasePath, .FileName, False)

                        MsgBox("تم نسخ قاعدة البيانات بنجاح")

                    End If

                End With

            End Using

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Backup Database")

        End Try

    End Sub