ado方式对数据库更新的问题。(50分)

我想将表tablename的record字段的内容修改，record 字段是varchar（3） not null 可是总出错，说“更新查询失败，未找到要更新的行”，
请大家帮我看看，到底哪地方的问题？
m_pRecordset1.CreateInstance(_uuidof(Recordset));
strSql.Format("select * from TABLENAME where ID='%s'",ID);
BSTR bstrSQL = strSql.AllocSysString();
m_pRecordset1->Open(bstrSQL,(IDispatch*)m_pConnection1,adOpenDynamic,adLockOptimistic,adCmdText);
if(m_pRecordset1->adoEOF)//no record and return error
{
errorcode=ERROR_NOID;
closeRecordsetPtr(m_pRecordset1);
return(errorcode);
}
else
{
_variant_t vCrim;
CString stemp;
stemp.Format("%s","sg");
m_pRecordset1->PutCollect("RECORD",_variant_t(stemp));
m_pRecordset1->Update();
}

这应该是表未设关键字段的问题。

我设了primarykey 是那个ID。