VB连接数据库查询超时问题

再VB模块中我是通过如下方式来连接主库和历史库的(历史库数据量大)
VB code:

Public Connstr As String
Public objConn As New ADODB.Connection
Public ConnHISstr As String
Public objConnHIS As New ADODB.Connection
Public Mystr As String

Public Sub ConnectToServer() '连接数据库
On Error GoTo Errmsg
Connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" & DBName & ";Data Source=" & DBServerIP & ";User ID=" & DBLoginID & ";Password=" & DBLoginpwd & ";"
objConn.Open Connstr
ConnHISstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=" & DBHISName & ";Data Source=" & DBServerIP & ";User ID=" & DBLoginID & ";Password=" & DBLoginpwd & ";"
objConnHIS.Open ConnHISstr
Exit Sub
Errmsg:
MsgBox Err.Description & "SQL Server2005数据库连接出错，请联系管理员！", vbExclamation, "Warning Info"
End
End Sub



使用ADODC（adoReport）以及VS FlexGrid网格控件（DataGridResults）的DataSource方式显示数据，当遇到select出大表时，经常出现Timeout expired信息，我怎样延长VB查询超时设置，或者其他解决办法？
VB code

---

Code highlighting produced by Actipro CodeHighlighter (freeware)
http: