关于ado事物编程

Question

Option Explicit
'定义数据库变量
Dim objConn As ADODB.Connection
Dim objRec As ADODB.Recordset
'connect按钮单击事件
Private Sub cmdConnect_Click()   On Error GoTo Connection_Error
   Set objConn = New ADODB.Connection
   objConn.ConnectionString = "Provider=SQLOLEDB.1;" & _
                              "Persist Security Info=False;" & _
                              "User ID=sa;Initial Catalog=pubs"
   objConn.Open
   MsgBox "连接成功", , "提示"
   Exit SubConnection_Error:
   MsgBox "连接失败:" & vbCrLf & Err.Description, , "提示"End Sub
通不过编译   错误提示：用户定义类行未定义，我不知道咋修改请高手指点
没用ADO控件，只用了command按钮做数据库测试

Answer 1

"Provider = SQLOLEDB.1;Persist Security Info = False;" & _
        "User ID = sa;Password =;Data Source = 服务器名称或IP;" & _
        "Initial Catalog = pubs"

Answer 2

工程-->引用 Microsoft Activex Data Objects 2.* Library