数据库连接出错，望指点！
我刚学习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 Sub
Private 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 Sub
Private 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
问题点数：20、回复次数：1Top
1 楼ahcpx（天雪）回复于 2006-06-04 18:33:16 得分 0
Dim objcn As New Connection
objcn.open "Provider = Sqloledb; User ID = sa;Password = 123;Initial Catalog = 实例1库; Data Source = =(loacl);"Top
