كود النسخ الاحتياطى

السلام عليكــم ورحمـة الله وبركاتــه ،،

انا شغال vb.net 2005 + sql

عندى مشكلة فى كود النسخ الاحتياطى لقاعدة البيانات

وده الكود المستخدم

ارجو من الاخوة المشرفين والاعضاء المساعدة فى كتابة الكود بصورة صحيحة

   
 Dim Conn As New SqlConnection(con)

Dim con As String = "Data 
Source=.\SQLEXPRESS;AttachDbFilename=" & Application.StartupPath & "\Pyramidsv12009DB.mdf;Integrated Security=True;User Instance=True"
		'Dim Conn = New SqlClient.SqlConnection("Connection String")
	Dim objData = New SqlClient.SqlCommand
		Try
			Dim SQLs As String = "backup DataBase Pyramidsv12009DB.mdf  to disk = @Path "
			objData.Parameters.Clear()
			objData.Parameters.Add("@Path", SqlDbType.NVarChar).Value = "c:\Backup.mdf"
			Conn.Open()
			objData.Connection = Conn
			objData.CommandText = SQLs
			objData.ExecuteNonQuery()
			Conn.Close()
			MessageBox.Show("Backup Data Completed")
		Catch ex As Exception
			MessageBox.Show(ex.Message)
			Conn.Close()
		End Try
	End Sub

حيث Pyramidsv12009DB.mdf اسم قاعدة البيانات