char    sErrSrc[]="CBsConvFile::InitAdoConn";
char    sLog[300];
strcpy(g_sConnString,"Provider=SQLOLEDB;Data Source=DBSVR;Initial Catalog=TESTCMB;User ID=sa; PWD=");
bool bRetval=true;
HRESULT hr;

try
{
hr=m_pConn.CreateInstance(__uuidof(Connection));
if(FAILED(hr))
throw "";
hr=m_pRs.CreateInstance(__uuidof(Recordset));
if(FAILED(hr))
throw "";

hr=m_pCaseRs.CreateInstance(__uuidof(Recordset));
if(FAILED(hr))
throw "";
m_pConn->ConnectionString =g_sConnString;
hr=m_pConn->Open("","","",adConnectUnspecified);
if(FAILED(hr))
throw "";
m_pCaseRs->Open("SELECT CASE_NO,FORM_ID FROM T_APP_CASE ORDER BY CASE_NO"
,_variant_t((IDispatch *)m_pConn,true)
,adOpenDynamic
,adLockOptimistic
,adCmdText);
m_pRs->Open("select FORM_ID,FIELD_ID,INPUT_TYPE from dbo.T_FRM_FORMFIELD(index(IX_T_FRM_FORMFIELD))\
   where form_id in (select form_id from t_app_case)"//\
   order by FORM_ID,INPUT_TYPE,FIELD_ID"
   ,_variant_t((IDispatch *)m_pConn,true),adOpenStatic, adLockReadOnly, adCmdText);m_pRs->Index="FORM_ID,FIELD_ID";//出错
数据库连接无问题