The usage of ADO recordset in this way is not good or efficient. You can do it in this way.
cnSS.Execute "UPDATE <tablename> SET Code='" & Replace(txtCardCatCode.Text, "'", "''") & "', Description='" & Replace(txtCardCatDesc.Text, "'", "''") & "' WHERE " & <where condition>
Where cnSS is the ADO connection object with which you open the recordset. <tablename> is the name of the table where you modify. <Where condition> is to selectively modify the records of the table. You may use the where condition you used in the select query with which you opened the recordset.