怎样控制connection连接超时?

Question

我想在连接数据库时超过一定的时间自动中断连接，不知怎么做？
我的想法是用定时器做，但是下面的方法不行
Private Sub Form_Load()
 cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tempdb"
doevents
 tmrCon.Enabled = True        'tmrCon是定时器
 rs.Open "select * from 客人资料表", cnn, 1, 3
 Set mgdSch.DataSource = rs
 cloR rs
End Sub
-----------------------------------------定时器过程--------------------------------------
Private Sub tmrCon_Timer()
 If cnn.State = adStateClosed Or adStateConnecting Then
    MsgBox "服务器连接超时，请确认服务器已运行！"
    End
 End If
End Sub

Answer 1

比如：Dim cn As New ADODB.Connection
cn.ConnectionTimeout = 200      ‘连接超时
cn.CommandTimeout = 100          '命令超时

Answer 2

vb里面的timer控件是用什么做的呢？
有没有可以设定时间的函数呢？

Answer 3

////vb里面的timer控件是用什么做的呢
定时控件，在指定的时间内触发动作,但他不能完成你的功能,vb是单进程的

Answer 4

用connectiontimeout和cammandtimeout控制

Answer 5

cn.ConnectionTimeout = 200      
 不是可以吗?