Close the Database connection

// this function is used to close the Database connection

Set dBConnection - connection object...

Public Function fnDBCloseConnection(dBConnection)
fnDBCloseConnection=false

If isobject(dBConnection) Then
Set dBConnection=dBConnection
dBConnection.Close()
'fnInsertResult "Database connection", "Verifying the Database connection status ", "Database connection is closed", "PASS"
Reporter.ReportEvent micPass, "Verifying the Database connection status", "Database connection is closed"
fnDBCloseConnection=true
Else
'fnInsertResult "Database connection", "Verifying the Database connection status ", "Database connection is closed", "WARNING"
Reporter.ReportEvent micWarning, "Verifying the Database connection status", "Database connection is closed"

End If

Set dBConnection = Nothing
End Function