VB 打开数据库失败时的错误处理问题

因为涉及到数据的修改，每次打开都是独占模式，每次都是打开-查询-关闭，或者打开-修改-关闭。这个期间都是短暂的打开写入，但是未避免出现意外的多人访问碰撞问题，所以需要一个出错处理方法。请大家指教。

on error go to xxx
xxx:
if dataTime=-1 then
dataTime=0
else
dataTime=dataTime+1
if dataTime>10 then
msgbox "xxxxx"
dataTime=-1
endif
endif
放个Timer，0.5秒抛一次，调更新，

呃，没太看明白楼上的方式，我补充一下我现在数据库打开的方式吧。
Public cn As New adodb.Connection '声明新的数据库连接变量
Public rs As New adodb.Recordset '声明新的数据库记录集变量
'打开数据库连接
Public Sub openconn()
Set cn = New adodb.Connection '设置新的数据库连接变量
Set rs = New adodb.Recordset '设置新的数据库记录集变量
cn.CursorLocation = adUseClient '设置数据库连接状态
cn.Open "provider=microsoft.jet.oledb.4.0;data source=y:\XXX.mdb;jet oledb:database password=XXXX;persist security info=false;" '打开lcjl数据库
End Sub
'关闭数据库连接
Public Sub closeconn()
rs.Close '关闭数据库记录集
Set rs = Nothing '设置数据库记录集为空
cn.Close '关闭数据库连接
Set cn = Nothing '设置数据库连接字符串为空
End Sub
然后在主程序里通过调用openconn()来打开数据库，如果这个时候有其他人用同样的方式打开数据库写数据，这面就要等待对方释放数据库后再打开数据库，应该在什么位置加上什么样的处理方式呢？（这个程序大概3-5个人使用，不会出现密集的同时查询写入的现象。）

Public Sub openconn()
on error go to xxx
exit sub
xxx:
sub Timer_time()
if dataTime<> -1 then openconn()

access是单机数据库，出性能考虑用sql sever之类好点，要不就错误处理里用启用timer执行了

了解思路了。主要是
sub Timer_time()
if dataTime<> -1 then openconn()
这里没转过弯来。哈哈