MFC下unicode编码方式，如何通过ADO方式，调用GlobalLock()函数获取BLOB数据到一个字符串中呢？请写一段MFC代码，谢谢

以下是一段MFC代码，演示了如何通过ADO方式，调用GlobalLock()函数获取BLOB数据到一个字符串中：

// 构造一个ADO连接对象
_ConnectionPtr pConn("ADODB.Connection");
pConn->ConnectionString = "your connection string";
pConn->Open("", "", "", adConnectUnspecified);

// 构造一个ADO命令对象
_CommandPtr pCmd("ADODB.Command");
pCmd->ActiveConnection = pConn;
pCmd->CommandType = adCmdText;
pCmd->CommandText = "SELECT BLOBColumn FROM YourTable WHERE IDColumn = ?";

// 构造一个ADO参数对象
_ParameterPtr pParam = pCmd->CreateParameter("", adInteger, adParamInput, sizeof(int), IDValue);
pCmd->Parameters->Append(pParam);

// 执行命令
_RecordsetPtr pRs = pCmd->Execute(NULL, NULL, adCmdText);

// 获取BLOB数据
if (!pRs->Eof)
{
    // 获取BLOB字段
    _variant_t varBlob = pRs->Fields->GetItem("BLOBColumn")->Value;

    // 将BLOB数据复制到内存中
    HGLOBAL hGlobal = ::GlobalAlloc(GMEM_MOVEABLE, varBlob.parray->rgsabound[0].cElements);
    memcpy(::GlobalLock(hGlobal), varBlob.parray->pvData, varBlob.parray->rgsabound[0].cElements);
    ::GlobalUnlock(hGlobal);

    // 将BLOB数据转换为字符串
    LPSTR pData = (LPSTR)::GlobalLock(hGlobal);
    CString strData(pData, varBlob.parray->rgsabound[0].cElements);
    ::GlobalUnlock(hGlobal);

    // 使用字符串数据
    // ...
}

// 关闭连接
pConn->Close();

需要注意的是，上述代码中的 "your connection string" 需要替换成实际的连接字符串，"YourTable" 需要替换成实际的表名，"IDColumn" 和 "BLOBColumn" 需要替换成实际的列名。另外，IDValue需要替换成实际的记录ID值。