求助：vb连接sql server数据库连接超时？

下面是我的代码，哪位高手帮帮忙，谢谢！！

   Dim cn As New ADODB.Connection
    cn.Provider = "SQLOLEDB"
    cn.Open "Data Source=112.34.54.233;Initial Catalog=book;User ID=111;Password=4545"

    Adodc1.ConnectionString = cn
    Adodc1.RecordSource = "select id from LabNews order by id desc"
    Adodc1.Refresh
程序运行一段时间后，弹出连接超时时错误，代码停留在“Adodc1.Refresh”，不知何故