_CommandPtr  cmdSql;
    CString SqlText,strData;
    COleDateTime dtCurrent;
if(theApp.MyDb==NULL) return;
dtCurrent = COleDateTime::GetCurrentTime();
strData = dtCurrent.Format("%Y-%m-%d %H:%M:%S");
SqlText = "Insert into EventLog(EventTime,EventDesc,EventType,UserId,ComputerName) values ('";
    SqlText = SqlText + strData + "','" + szText + "',";
strData.Format("%d , %d ",nType,theApp.gUserId);
SqlText = SqlText + strData + ", '" ;
SqlText = SqlText + theApp.gComputerName + "')"; 
try
{
cmdSql.CreateInstance(__uuidof(Command)); 
cmdSql->ActiveConnection = theApp.MyDb;
cmdSql->CommandText = _bstr_t(SqlText); 
cmdSql->Execute(NULL,NULL,adCmdText);
}
catch(_com_error *e)
{
AfxMessageBox(e->ErrorMessage());
return ;
}
catch(...)
{
AfxMessageBox("ADO发生错误!"); return ;
}
    return ;