Set conn = CreateObject("ADODB.Connection")
    Set adors = CreateObject("ADODB.Recordset")
    conn.CommandTimeout= 10
    strCnn = "Provider=sqloledb;Data Source=" & ip & ";" _
                   & "Initial Catalog=" & database & ";" _
                   & "User Id=" & user & ";" _
                   & "Password=" & pwd
    conn.Open strCnn
实际上要超过20秒