最近在用VB做毕业设计，在数据库的连接上出了点问题。请大家帮忙看一下，我再这里先谢谢大家了。
下面时我的测试代码：
Dim cnn As ADODB.Connection
Private Sub Form_Load()
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = "Driver={sql server};server=local;uid=sa;pwd=;database=人事管理信息系统"
    cnn.ConnectionTimeout = 30
    cnn.Open
    If cnn.State = adStateOpen Then
        MsgBox "打开数据库"
    End If
    cnn.Close
    If cnn.State = adStateClosed Then
        MsgBox "关闭数据库"
    End If
End Sub
运行的时候老是提示“[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server不存在或访问被拒绝”。这到底时怎么一回事情啊。并且我还在自己的机器上配置了数据源。

cnn.ConnectionString ="PROVIDER=MSDASQL;DRIVER={SQL SERVER};SERVER=(local);UID=sa;PWD=;DATABASE=人事管理信息系统"

试一下

我试了  还时不可以，还是一样的问题。

一般用的OLEDB吧？
Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=dbName;Data Source=localhost

那就是你数据库服务器和客户端端口问题了
有什么问题等我在线时，一定可以帮你解决的

1,SQLSERVER服务器端,身份验证模式 要选择"SQL SERVER 和 WINDOWS",不能仅仅选择“仅WINDOWS”
2、客户端访问服务器的端口要与服务器允许的端口一致；更改一下客户端的默认端口
3、服务器端必须要有你欲访问的数据库（你改成DATABASE=master试一下）
。。。。。。