_ConnectionPtr m_pConnect=NULL;
CString sConnect;
sConnect="Provider=SQLOLEDB;DataSource=127.0.0.1;Initial Catalog=patient;User ID=sa;Password=;";
m_pConnect.CreateInstance("ADODB.Connection");
m_pConnect->Open(_bstr_t(sConnect),"","",adModeUnknown);

_RecordsetPtr m_pRecordset;
m_pRecordset.CreateInstance("ADODB.Recordset");
m_pRecordset->Open(_variant_t("select * from patientinfor"),_variant_t((IDispatch*)m_pConnect,true),adOpenDynamic,adLockOptimistic,adCmdText);

m_pRecordset->AddNew();
m_pRecordset->PutCollect("patient_name",_variant_t "m_inputname"));
m_pRecordset->Update();
调试通过了，但是运行这段程序的对话框总会出一个错误。就是一个打叉的消息，说什么“runtime error”。
有没有高手告诉我是什么问题啊？