VB Code:
Public Function ReOpenConn() As Boolean
Dim iProp As Integer
'If ADO/ODBC is using connection pooling, any client idling for X minutes gets disconnected. Must reconnect
For iProp = 0 To modCn.Properties.Count - 1
If modCn.Properties(iProp).Name = "Connection Status" Then Exit For
Next
If iProp >= modCn.Properties.Count Then ReOpenConn = True: Exit Function
If modCn.Properties("Connection Status").Value = 1 Then ReOpenConn = True: Exit Function
Screen.MousePointer = vbHourglass
modCn.Close
modCn.Open
Screen.MousePointer = vbDefault
ReOpenConn = True
End Function