Private Sub Form_GotFocus()
On Error GoTo DealError
'测试是否可联接到SQL Server服务器
Me.Enabled = False '在测试完成之前，禁止窗体响应用户操作
'创建与数据库的联接
Dim objcn As New Connection '定义并实例化联接对象
With objcn '建立数据库联接
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=123;Data Source=(local);" & _
"Initial Catalog=企业人事管理 数据库"
.Open '打开数据库联接
.Close '关闭数据库联接
End With
Set objcn = Nothing '释放数据库联接
Label1(4) = "已联接到数据库服务器" '提示联接到数据库服务器
Timer1.Interval = 3000 '启动计数器，定时为三秒
Me.Enabled = True '允许窗体响应用户操作
Exit Sub
DealError:
'在不能正确联接数据库服务起伏时显示提示信息
MsgBox "不能正确联接数据库服务器，请与系统管理员联系！", vbCritical
Unload Me '关闭窗体
End Sub

为什么我用这段代码连接SQL数据库的时候出来的错误是 无效的NEW 关键字.上面的 objcn 是随便定义的还是有什么要求,请看到着帮帮忙,希望解决这个问题,谢谢!!!!