你各位帮忙看看，什么原因

[zhbw]

写了个连接数据库函数，
如果注释 On Error GoTo ERROR_HAND, ERROR_HAND: ConnectDB = False，则连接数据库是成功的。
但是增加以上错误处理语句，则不成功，并且提示"驱动程序的SQLSetConnectAttr失败"
请教是什么原因，如何处理？ 谢谢

'连接数据库服务器，成功：返回 true，否则，false
Public Function ConnectDB() As Boolean
On Error GoTo ERROR_HAND

pConnStr = "data source=test;user id=tuxedo;password=bea;database=hotel;"
If pConn.State = adStateClosed Then
pConn.Open pConnStr
If pConn.State = adStateOpen Then
ConnectDB = True
Else
ConnectDB = False
End If
Else
ConnectDB = True
End If

ERROR_HAND:
ConnectDB = False
End Function

[daisy8675]

Public Function ConnectDB() As Boolean
On Error GoTo ERROR_HAND

pConnStr = "data source=test;user id=tuxedo;password=bea;database=hotel;"
If pConn.State = adStateClosed Then
pConn.Open pConnStr
If pConn.State = adStateOpen Then
ConnectDB = True
Else
ConnectDB = False
End If
Else
ConnectDB = True
End If
exit function '---加这句话

ERROR_HAND:
ConnectDB = False
End Function

[zhbw]

多谢，