\ ' * * * * * * * * * * * * ' * Open the Recordset * ' * * * * * * * * * * * * Dim RS, SQL Set RS = Server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection = CN RS.CursorType = adOpenStatic RS.LockType = adLockOptimistic