strdrive="c:\" StrTab = "select 表1.* into 表1 in '" & StrDrive & "' from 表1.*" Set SaveDb = DBEngine.Workspaces(0).CreateDatabase(StrDrive, dbLangGeneral, dbEncrypt)
If StrTab <> "" Then CurrentDb.Execute StrTab