请问这段ADO数据库的代码错误在什么地方

Question

On Error GoTo DealError
Dim objCon As Connection, strCn As String, strSQL As String
Set objCon = New Connection
strCn = "provider=SQLOLEDB.1;User Id =sa;Data Source=(local)"
objCon.ConnectionString = strCn
objCon.Open
strSQL = "CREATE DATABASE 实例3库"
objCon.Execute strSQL
MsgBox "成功创建数据库”"
objCon.Close
strCn = "provider=SQLOLEDB.1;user id =sa;Data Source=(local);Initial Catalog=实例3库"
objCon.ConnectionString = strCn
objCon.Open
MsgBox "OK1"
strSQL = "CREATE TABLE 测试表（username varchar(13)not null primary key,password char(6) not null )"
MsgBox "ok2"
objCon.Execute strSQL
MsgBox "成功创建数据库表"
strSQL = "insert 测试表 (username,password) values ('administrator',123456)"
objCon.Execute strSQL
strSQL = "insert 测试表（username,password) values ('adninis',123321)"
objCon.Execute strSQL
strSQL = "insert 测试表 （username,password) values ('ding',100000)"
objCon.Execute strSQL
MsgBox "成功为表添加了三条记录”"
objCon.Close
Set objCon = Nothing
Command2.Enabled = True
Exit Sub
DealError:
MsgBox "数据库建立过程出错“&Err.Description"调试结果：成功创建数据库
         ok1
         ok2
         数据库建立过程出错“&Err.Description
         我估计是objCon.Execute strSQL有错误
         是不是要设置sql_2000 的问题
         请指教！

Answer 1

连接字串没有指定库名，一般情况下sa用户的默认库是master，master库好像不允许用户手工建表的

Answer 2

不好意思，看错了strSQL = "CREATE TABLE 测试表（username varchar(13),password char(6) )"直接试试
另：错误捕获应该这样
MsgBox "数据库建立过程出错" & Err.Description