谁知道在VB中怎样在建立access数据库*.MDB时同时建立用户及密码，急用！！！

Question

Set dbs = CreateDatabase(path, dbLangChineseSimplified)
dbs.NewPassword "", MyPassword'增加“a”表
Set tdfNew = dbs.CreateTableDef("a")
        
With tdfNew
      .Fields.Append .CreateField("ID", dbLong)
      .Fields.Append .CreateField("aa", dbText, 50)
      .Fields.Append .CreateField("aa", dbText, 50)
End With
        
dbs.TableDefs.Append tdfNew

Answer 1

.Fields.Append .CreateField("aa", dbText, 50)
应该只有1行

Answer 2

Set mdbDB = Workspaces(0).CreateDatabase(AppPath & "DB.mdb", dbLangGeneral & ";pwd=Secret")