请高手指点,VB中如何建立ACCESS数据库及数据表,在线等待

Question

本人在做毕业设计急需解决,敬请各位高手指点迷津,我在线等候

Answer 1

建库代码：
sub CreateDarabase(Databasename as String)

Answer 2

建库代码：
sub CreateDarabase(Databasename as String)
     Dim DefaultWorkspace as Workspace
     Dim CurrentDatabase as Database,Mydatabase as Database
     set DefaultWorkspace =Dbenbine.workspaces(0)
     set mydatabase=DefaultWorkspace .createDatabase(databasename,dblanggenerl)     mydatabase.close
end subdatabasename是所建库的名称。