MFC ado连接sqlserver2005 报错 [TCP/IP Socket?报错

我这写了个连接数据库查询的，是每隔一分钟进行一次多表的连接查询：

全局的声明：

_ConnectionPtr   m_pConnection;
_RecordsetPtr pPtr;

连接的初始化代码：
InitDBConnect()
{
    try
	{
		//创建连接对象实例
              m_pConnection.CreateInstance("ADODB.Connection");
		_bstr_t strConnect = strSRC;
		LOG::Out0("INFO", "数据库连接初始化：%s", strSRC);
		//使用Open方法打开数据库
		m_pConnection->Open(strConnect,"","",adModeUnknown);

		pPtr.CreateInstance("ADODB.Recordset");
		LOG::Out0("INFO", "数据库初始化完毕！");
	}
	catch(_com_error e)
	{	
		LOG::Out0("ERROR", "初始化错误： %s", e.ErrorMessage());
		LOG::Out0("ERROR", "DESCRIPTION:%s", (char *)e.Description());
	}
}

查询的代码：
void CDataAnalyzingDlg::DBQuery(CString sql)
{
    LOG::Out0("INFO", "查询：%s", sql);
    _variant_t varSQL(sql);
    if(FAILED(pPtr->Open(varSQL, m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText)))
    {
        //AfxMessageBox("数据查询失败!");
        LOG::Out0("ERROR", "查询失败");
        pPtr->Release();
        return;
    }
}

InitDBConnect()