دوستان من با این فرمان در ویندوز 2000 و آفیس xp یا همون 2002 به راحتی بک آپ میگیرم ولی این فرمان در جایی که ویندوزش xp است و آفیسش 2003 کار نمی کنه لطف کنید نگاه کنید به این فرمان
sDataBaseName = "a:\db1.mdb"
Set wrkDefault = DBEngine.Workspaces(0)
Set dbsNew = wrkDefault.CreateDatabase(sDataBaseName, _
dbLangGeneral, dbEncrypt) 'Create New DataBase
dbsNew.Close 'close database
DoCmd.CopyObject "a:\db1.mdb", "1", acTable, "1"
err:
If err.Number = 3204 Then 'DB exists
Kill sDataBaseName
Resume
End If
End Sub
البته بخش ساخت db1 کار نمی کنه کمک کنید لطفا