求助，谢谢各位vb高手！

Question

引用DAO3.6建立ACCESS2000数据库，引用DAO3.5建立ACCESS97数据库
Dim db As Database
Set db = CreateDatabase("c:\new.mdb", dbLangChineseSimplified)
db.Close

Answer 1

Dim MyTable As TableDef, MyField As Field
        Dim MyDatabase As Database
        Set MyDatabase = CreateDatabase(cProgramPath + "\Trade.mdb", dbLangGeneral, dbEncrypt)
        Set MyTable = MyDatabase.CreateTableDef("System")
        Set MyField = MyTable.CreateField("APPLNAME", dbText, 100)     '项目名称
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15)    '服务器名称
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15)     '数据库用户
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("PASSWORD", dbText, 15)      '数据库口令
        MyTable.Fields.Append MyField
        Set MyField = MyTable.CreateField("DATANAME", dbText, 15)      '数据库名称
        MyTable.Fields.Append MyField
        MyDatabase.TableDefs.Append MyTable
        'MyDatabase.NewPassword "", "allway"
        MyDatabase.Close

Answer 2

如果每个公司的数据库相同，只是名字不同，我建议你建个模板库，然后用文件拷贝的方式，给每个公司拷贝一份。FSO的操作应该会吧。

Answer 3

建一个空的数据库文件，里面有全部的表，而没有数据记录。
要用的时候，用FileCopy命令就可以获得一个新公司的数据库文件了。