如何设置访问数据库时超时(vb)

我用VB做的物流系统,有时候网络慢,然后N台电脑用系统收货等操作,就会卡在那里,等网络稍微通畅才有反应,网络好就没问题,数据库是远程的.能不能设置访问数据库的时候超过多少时间就跳出,也就是设置超时.引用了PUBLICDLL.DLL. 里面封装了数据库访问等操作.
比如
Public PubDb As New PublicDll.MisDataLib
下面执行
If PubDb.OpenPubrs(sqlstr, Pubrs) Then