连接远程数据库时出现的问题？

我是这么连接远程数据库的
Sub Main()
    If Not ServerConnect Then
        MsgBox "数据库联接错误，请查看联机帮助文件 !!!  ", vbCritical
        End
    End If
    ic_form.Show
End Sub
Public Function ServerConnect() As Boolean
    ServerConnect = False
    Dim a, b, c As Variant
    Dim database As String
    Dim SQLstatus As String
    
On Error GoTo ErrHandle
    SQLstatus = "SQL"
    Select Case UCase(SQLstatus)
    Case "SQL"
         strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=code;Data Source=sss"
    End Select
    conn.ConnectionString = strconn
    conn.ConnectionTimeout = 100
    conn.Open strconn
    Set Cmd.ActiveConnection = conn
    Cmd.CommandTimeout = 1
    ServerConnect = True
    Exit Function
ErrHandle:
    Dim adoErr As ADODB.Error
    If conn.Errors.Count > 0 Then
        For Each adoErr In conn.Errors
            MsgBox "[Error Code] " & adoErr.Number & Chr(13) & adoErr.Description, vbCritical + vbOKOnly, "Error"
        Next adoErr
    End If
End Function
    我检查了语句没有什么问题，但是程序运行时总是提示
    运行时错误‘-2147467259（80004005）’
    DBNETLIB[ConnectionRead(recv())]一般性网络错误，请检查网络文档。
   这是什么原因，郁闷ING~~~~~~~