Using Resync method in ADO MS VB

I am developing in VB 6.0 with MSSQLSERVER as database. I wish to use the resync method and rollbacktrans method to restore the previuos state of the database. I have this runtime error : Run time error 21474672959 (80004005) Information on the column key is insufficient for the update or the refresh.
This is the command syntax:
ConnectionObject.Resync
How do I go about with this error?