In your createdatabase method you have to specify the locale information. If you're not sure which to use there is a general one. Here is an example.

Set DbsNew = CreateDatabase(FileName, dbLangGeneral)

That should solve your problem.