Release Locked User from ALM(QC)

'Release Locked QTP Tests from QC
Set QCConnection=QCUtil.QCConnection
Set con=QCConnection.command
con.CommandText="DELETE FROM LOCKS WHERE LK_USER = 'USERID' "
Set recset=con.execute
'Mention your QC USERID in above code