سؤال عن عمل نسخة احتياطية لجزء من قاعدة البيانات

كود :
 Try

            If txt1char.Text = "C" Then

                MessageBox.Show("حاول مجدداً C:\ لا يمكن حفظ النسخة الاحتياطية على الجذر  ",

 "", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Exit Sub

            End If

           

            Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=DB_ACC;Integrated Security=True")



            Dim datab As String

            datab = "DB_ACC"



            'datab = My.Settings.DataBase

            If txt_path.Text = "" Then

                MessageBox.Show(" يجب اختيار المسار اولا", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)

                Return



            End If



            Dim Filename As String = txt_path.Text + "\ " + datab + " " + DateTime.Now.ToShortDateString()

.Replace("/", "-") + " - " + DateTime.Now.ToLongTimeString().Replace(":", "-") & ".bak"

            If con.State = ConnectionState.Open Then

                con.Close()

            End If

            con.Open()

            Dim querey As String = "backup database " & datab & " to disk='" & Filename & "'with init,stats=10"



            cmd = New SqlCommand(querey, con)

            cmd.ExecuteNonQuery()

            con.Close()

            MessageBox.Show(" تمت عملية النسخ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)

        Catch ex As Exception

            MessageBox.Show(ex.ToString, "تنبيه")

        End Try