if(IsFileExistW(dbpath)) //----- файл существует
	{
//		AfxMessageBox(L"file exist");	
	}
	else //файла нет
	{
		CDaoWorkspace* wsp = NULL;
		CDaoDatabase*  ndb = NULL;
		try
		{
			wsp = new CDaoWorkspace();
			ndb = new CDaoDatabase(wsp);
			ndb->Create(dbpath, L";LANGID=0x0409;CP=1252;COUNTRY=0;pwd=parol_password", dbVersion40);
			ndb->Close(); delete ndb;
			wsp->Close(); delete wsp;
		}
/**/	catch(CDaoException* cDaoError)
		{
			long err = cDaoError->m_pErrorInfo->m_lErrorCode;
			CString str;
			str.Format(L"Произошла ошибка при создании новой базы данных!\n\nCode\t= %d\nHelp\t= %s\nSource\t= %s\n\nОписание:\n\n%s\n",
				err, cDaoError->m_pErrorInfo->m_strHelpFile, cDaoError->m_pErrorInfo->m_strSource, cDaoError->m_pErrorInfo->m_strDescription);
			AfxMessageBox(str);
			cDaoError->Delete();
			ndb->Close(); delete ndb;
			wsp->Close(); delete wsp;
			::PostMessage((HWND)pParam, WM_THREADEXITMESS,  1 , NULL);
			return  1 ;
		}
	}
	::PostMessage(pDlg->GetSafeHwnd(), WM_THREADEXITMESS,  0 , NULL);
	return  0 ;