IDispatch error #3088 ADO+Access

strSQL="SELECT * FROM 短语分类表 where 短语类别 = '" + TreeCurrent + "'";
try
{
HRESULT hTRes;
hTRes = m_pTreeRecordset.CreateInstance(_T("ADODB.Recordset"));
if (SUCCEEDED(hTRes))
{
//----------------------------------------------------
hTRes = m_pTreeRecordset->Open((LPTSTR)strSQL.GetBuffer(130),
_variant_t((IDispatch *)m_pTreeConn,true),
adOpenDynamic,adLockPessimistic,adCmdText);

if(SUCCEEDED(hTRes))
{
TRACE(_T("连接成功!\n"));
//------------------------------------------
m_pTreeRecordset->MoveFirst();
..........

难道是SQL语句错了吗？