数据库连接出错，望指点！

Question

我刚学习VB不久，在照别人的程序仿做是，总是出错，好像是数据库连接的问题，可是找不到具体是那一点的问题，请高手指点！
错误如下：实时错误‘-2147467259 （800004005）’：
          [DBNETLIB][ConnectionOpen(connect()).]SQL Server不存在或拒绝访问。
           
代码如下：Dim objrs As Recordset
Private Sub Cmdnext_Click()
objrs.MoveNext
If objrs.EOF Then
    objrs.MoveLast
End If
Txtname = objcn.Fields("用户名").Value
Txtpassword = objrs.Fields("口令").vaule
Txtmsg = objrs.AbsolutePosition & "/" & objrs.RecordCount
End SubPrivate Sub Cmdpre_Click()
objrs.MovePrevious
If objrs.BOF Then
     objrs.MoveFirst
End If
Txtname = objcn.Fields("用户名").Value
Txtpassword = objrs.Fields("口令").vaule
Txtmsg = objrs.AbsolutePosition & "/" & objrs.RecordCount
End SubPrivate Sub Form_Load()
Dim objcn As New Connection
With objcn
     .Provider = "sqloledb"
     .ConnectionString = "user id=sa;pwd=123;data source=(loacl);initial catalog=实例1库“"
     .Open
End With
setobjrs = New Recordset
With objrs
          .CursorLocation = adUseClient
          .CursorType = adOpenStatic
          .Open "secelt*form 测试表”，objcn"
          Set .ActiveConnection = Nothing
End With
objcn.Close: Set objcn = Nothing
Txtname = objcn.Fields("用户名").Value
Txtpassword = objrs.Fields("口令").Value
Txtmsg = objrs.AbsolutePosition & "/" & objrs.RecordCount
     
End Sub

Answer 1

Dim objcn As New Connection
objcn.open "Provider = Sqloledb; User ID = sa;Password = 123;Initial Catalog = 实例1库; Data Source = =(loacl);"