入和往Oracle的表中添加记录

我在Oracle中建了个表，建表结构如下
CREATE TABLE A
(
ID NUMBER(7) primary key
);
我想写入条记录，语句如下：_ConnectionPtr pConn=NULL;pConn.CreateInstance(__uuidof(Connection));_RecordsetPtr pRst=NULL;pRst.CreateInstance(__uuidof(Recordset));pConn->Provider="OraOLEDB.Oracle.1";try
{
pConn->Open("","ISVISION","ISVISION",NULL);


pRst->CursorLocation=adUseClient;
pRst->Open("A",pConn.GetInterfacePtr(),adOpenStatic,adLockOptimistic,adCmdTable);

pRst->AddNew();
pRst->Fields->Item[0L]->Value=100L; //执行到这就出异常了，真不知道是什么原因？
//如果表A的ID的数据类型是CHAR的，又不会出错？
pRst->Update(); pRst->Close();
pConn->Close();
}
catch (_com_error& e)
{
MessageBox(e.Description(),"error",MB_OK|MB_ICONWARNING);
return ;
}if (pConn)
pConn.Release();
if (pRst)
pRst.Release();