Excel连接局域网内一台Sql Server服务器,代码错在哪里？请版主指正！

Sql Server身份验证名和密码：kfview，密码：GYio98<>j，服务器地址：10.99.20.156。
我们公司用的是局域网，服务器在北京，我在深圳办公，数据库名称是to1。这个程序没验证成功，请版主及各位大师指正，代码存在那些问题？多谢先。

Public Sub 连接局域网内一台服务器数据库()
    Dim cnn As New ADODB.Connection
    Dim cnnStr As String, mydata As String
    mydata = "to1"    '指定数据库名称
    '设置建立与SQL Server数据库服务器中指定数据库连接的字符串
    cnnStr = "Provider=SQLOLEDB;" _
        & "User ID=kfview;" _
        & "Password =GYio88<>j;" _
        & "Data Source=10.99.20.156;" _
        & "Initial Catalog=" & mydata
    cnn.ConnectionString = cnnStr
    '试图打开指定的数据库
    On Error Resume Next
    cnn.Open
    On Error GoTo 0
    '判断数据库连接是否成功
    If cnn.State = adStateOpen Then
        MsgBox "数据库连接成功！", vbInformation, "连接数据库"
    Else
        MsgBox "数据库连接失败！", vbInformation, "连接数据库"
    End If
    Set cnn = Nothing
End Sub

没有人回复么？