最近在用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不存在或访问被拒绝”。这到底时怎么一回事情啊。并且我还在自己的机器上配置了数据源。

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