SQLserver+VB.NETでタイムアウト

VB.NETでSQLを発行する場合にタイムアウトが発生する場合がある。
コネクションでは2分ほどがおすすめである 例は4分
Connect Timeout= 240

                SqlConnectionStringS = "Server=" & txtDataSource.Text.Trim & ";"
                SqlConnectionStringS &= "User ID=" & txtUser.Text.Trim & ";"
                SqlConnectionStringS &= "Password=" & txtPass.Text & ";"
                SqlConnectionStringS &= "Initial Catalog=" & txtDBSEISAN.Text.Trim & ";"
                SqlConnectionStringS &= "Connect Timeout= 240"

コマンドでは規定値が30秒なので、コマンドでも発生する場合がある
これもタイムアウト時間の設定で回避できる
datasetをつかってfillでセットの場合は
daSQL.SelectCommand.CommadTimeout=120

            daSQL = New SqlDataAdapter(strSQL, cnSQLS)
            dsSQL = New DataSet
            daSQL.SelectCommand.CommandTimeout = 120
            daSQL.Fill(dsSQL, "SE_OUDATA_V")

commandをつかう場合は
cmSQLT.CommandTimeout = 120


            cmSQLT = New SqlCommand(strSQL, cnSQLS) 'コマンド
            cmSQLT.CommandTimeout = 120
            drSQLT = cmSQLT.ExecuteReader 'データリーダの使用