各位大神求助

Dim objAccess As Access.Application
On Error Resume Next
Set objAccess = GetObject("Access.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("Access.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
MsgBox "Now running " + objAccess.Name + _
" version " + objAccess.Version
End Sub用这个程序打开access数据库，运行总提示说用户类型未定义，我已经引用了Microsoft actovex date objects 2.1library,问题到底出在哪里？