Private Sub Command1_Click()
On Error GoTo DealError
Dim objCon As Connection
Dim strCn As String
Dim 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 实例2库"
objCon.Execute strSQL
MsgBox ("成功创建数据库")
objCon.Close
strCn = "Provider=SQLOLEDB.1;User ID=sa；" & "Data Source=(local)；Initial Catalog=实例2库"
objCon.ConnectionString = strCn
objCon.Open
strSQL = "CREATE TABLE 测试表(" & "用户名 varchar(13)not null primary key," & "口令char(6)not null)"
objCon.Execute strSQL
MsgBox ("成功创建数据库表")
strSQL = "INSERT 测试表(用户名,口令)" & "VALUES('Adminnistrator',123456)"
objCon.Execute strSQL
strSQL = "INSERT 测试表(用户名,口令)" & "VALUES('Admin',123456)"
objCon.Execute strSQL
strSQL = "INSERT 测试表(用户名,口令)" & "VALUES('叮当',123456)"
objCon.Execute strSQL
MsgBox ("成功为表添加了三条记录")
objCon.Close
Set objCon = Nothing
Command2.Enabled = True
Exit Sub
DealError:
MsgBox ("数据库创建过程出错:" & Err.Description)
End Sub

Private Sub Command2_Click()
Form2.Show
End Sub
为什么调试的时候出现点创建数据库按钮就出现提示‘sa‘登录失败