خطا در ساخت دیتا بیس جدید

[takkhal]

با سلام حظور اساتید ارجمند
وقتی طبق دستورات زیر میخوام یک فایل جدید بسازم ارور 3001 میده و میگه invalid argument!
کمک لطفا

Dim wrkDefault As Workspace
Dim dbsNew As Database
Dim prpLoop As Property

' Get default Workspace.
Set wrkDefault = DBEngine.Workspaces(0)

' Make sure there isn't already a file with the name of
' the new database.
If Dir("d:\NewDB.mdb") <> "" Then Kill "d:\NewDB.mdb"

' Create a new encrypted database with the specified
' collating order.
Set dbsNew = wrkDefault.createdatabase("d:\NewDB.mdb", _
dbLangGeneral, dbEncrypt)

dbsNew.close
DoCmd.TransferDatabase acExport, "Microsoft Access", "d:\newdb.mdb", acTable, "products", "products"

[takkhal]

پس من چییییی؟:کف: