Unicode String in SQL Query using VC ( ADODB or CRecordset)

[vijay victory]

hi Experts, I m developing an Application which handles a Database with Unicode values.

I have Done all the Settings to run the Unicode Program
    1. Added "_UNICODE" in Preprocessor Directives and removes "_MBCS"
    2. Entrypoint in Link tab as "wWinMainCRTStartup"

I have write following code to search Records of given Unicode value. It runs fine but could not give any Records/Result back. It just out of While loop. Please Help me out..My code is as follows. :-

	CDatabase cn;
	CString FieldValue1,FieldValue2,FieldValue3;
	CDBVariant varvalue;

	CString csPwd,csUser,csServer,csDBName;
	csPwd = "SQLServer2005";
	csUser = "sa";
	csDBName = "DeccanCollege";
	csServer = "DECCANSERVER";

	cn.OpenEx(_T("DRIVER={SQL Server};Pwd="+csPwd+";Uid="+csUser +";Database="+csDBName+";Server="+csServer),CDatabase::noOdbcDialog);

	TCHAR *m_Voc = (TCHAR*) malloc(50); //allocate memory
        m_VocEdit.GetWindowText(m_Voc,50);     // get Edit box Unicode Value

//Suggest How to Pass "m_Voc" value as Unicode
	CString sqlStr = _T("Select * from Vocablemaster where slvid in(Select slvid from slipvocmaster where binno between 165 and 169) and (VocDescSan like N'%"+CString(m_Voc)+"%')");
	CRecordset rec(&cn);
	rec.Open(CRecordset::forwardOnly,sqlStr,CRecordset::none);

   while(!rec.IsEOF()) 
	{
		rec.GetFieldValue((short)0,FieldValue1);
		rec.GetFieldValue((short)1,FieldValue2);
		rec.GetFieldValue((short)2,FieldValue3); 
		rec.MoveNext();
	}

I have tried it by another way also by ADODB.. Its code is as follows :-

  HRESULT hr;
  CoInitialize(NULL);
  try
  {
	  ADODB::_ConnectionPtr connection;
	  hr = connection.CreateInstance(__uuidof(ADODB::Connection));
	  if (FAILED(hr))
	  {
		  throw _com_error(hr);
	  }
	  ADODB::_RecordsetPtr recordset;
	  hr = recordset.CreateInstance(__uuidof(ADODB::Recordset));
	  if (FAILED(hr))
	  {
		  throw _com_error(hr);
	  }
	  connection->CursorLocation = ADODB::adUseClient;
	  connection->Open(L"Provider=sqloledb;Data Source=DECCANSERVER;"
		L"Initial Catalog=DeccanCollege;User Id=sa;Password=SQLServer2005;", L"",
		L"", ADODB::adConnectUnspecified);

	  TCHAR *m_Voc = (TCHAR*) malloc(50); //allocate memory
        m_VocEdit.GetWindowText(m_Voc,50);     // get Edit box Unicode Value

        _variant_t varVoc = m_Voc;
//Suggest How to Pass "m_Voc" value as Unicode
	  recordset->Open(L"SELECT * from VocableMaster where VocNo lik