请问如下的ADO访问数据库中的数据，为什么有错？

Question

 
_RecordsetPtr      m_pRecordset;
_variant_t         var;m_pRecordset.CreateInstance(_uuidof(Recordset));try
{
    // 开始事务 
    theApp.m_pConnection->BeginTrans();     m_pRecordset->Open("select * from cyxt000_1",
        theApp.m_pConnection.GetInterfacePtr(),
               adOpenDynamic,
        adLockOptimistic,
        adCmdText);if(! m_pRecordset->BOF)
    m_pRecordset->MoveFirst();
else
{
    ::MessageBox(NULL,"表中没有数据",NULL,NULL);
    return ;
}
while(!m_pRecordset->adoEOF)
{
         var = m_pRecordset->Fields->GetItem("cs")->Value;// 执行到这里报错
          .......
         m_pRecordset->MoveNext();
}
。

Answer 1

HRESULT hr = m_Connection.CreateInstance(__uuidof(Connection));
hr=m_Connection->Open(_bstr_t("provider = sqloledb;server="127.0.0.1";"),_bstr_t(Username),_bstr_t(Pwd),-1); _variant_t v(0L);
m_Connection->Execute(_bstr_t("select * from cyxt000_1"),&v,adCmdText);