VC使用SQLDMO操作SQL Server

BOOL StartServer()
{
    if(FAILED(CoInitialize(NULL)))
    {
        AfxMessageBox(_T("Com初始化失败"));
        return FALSE;
    }
    _SQLServerPtr spSQLServer;//定义SQL Server对象指针
    if(FAILED(spSQLServer.CreateInstance(__uuidof(SQLServer))))
    {
        AfxMessageBox(_T("无法建立SQL对象"));
        return FALSE;
    }
    CString strServer(_T("SQL Server服务器名称"));
    CString strUserName(_T("登陆名"));
    CString strPassword(_T("登录密码"));
    try
    {
        //超时设置
        spSQLServer->PutLoginTimeout(10);
        spSQLServer->PutApplicationName(_T("MyAppName"));
        spSQLServer->PutHostName(_T("MyHostName"));
        spSQLServer->PutNetPacketSize(1024);
        spSQLServer->Connect(_variant_t(strServer),_variant_t(strUserName),_variant_t(strPassword));
    }
    catch(_com_error pCE)
    {
        try
        {
            //启动SQL Server服务器
            spSQLServer->Start(FALSE,_variant_t(strServer),_variant_t(strUserName),_variant_t(strPassword));
        }
        catch(_com_error pCE)
        {
            AfxMess