ADO连接Oracle数据库出错

CString sConn = _T("");
sConn.Format(_T("Provider=MSDAORA;Data Source=%s;"),dbinfo.sDBName);/*MSDAORA  原连接方式*/ ::CoInitialize(NULL);
HRESULT hr = 0;
hr = m_pConnection.CreateInstance(__uuidof(Connection), NULL); if( SUCCEEDED(hr) )
{

m_pConnection->PutConnectionTimeout( 30 );
hr = m_pConnection->Open( _bstr_t( sConn ), _bstr_t( dbinfo.sUserName ), _bstr_t( dbinfo.sUserPwd ), adModeUnknown );
}
else
{
ShowRunLog(_T("ADO连接存储过程出错"));
return FALSE;
}我是用OCI连接数据库，正常连接没问题。用ADO连接数据库执行存储过程，方法如上。只有一台机器有问题，日志显示是ADO没连接上，其他的机器都正常。
急求答案