Set dsoServer=CreateObject("DSO.Server")
  dsoServer.Connect "Сервер_с_MS_AS"
  Set dsoDB = dsoServer.MDStores("База_данных_с_кубами")
  Set dsoCube=dsoDB.MDStores("Наш_кубик_рубик")
  vFRes=dsoCube.MDStores.Find("Искомая_партиция")
  if not vFRes then
-- Значится не нашли и масса каких либо действий
  end if
  Set dsoCube = Nothing
  Set dsoDB = Nothing
  dsoServer.CloseServer
  Set dsoServer = Nothing