Доброго времени суток !
Переходим на восьмерку переписываю внешние обработки, в семерке такой код работает:
===================
   wc = CreateObject("ADODB.Connection");  
   wc.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;server=\\server;PWD=masterkey;UID=sysdba;DBNAME=server:C:\SBOFFICE\SBOFFICE.GDB";
   wc.Open();    
   Запрос=СоздатьОбъект("ADODB.Recordset");
   Запрос.ActiveConnection = wc;      
   Запрос.Source = "SELECT count(*) FROM GOODS;";
   Запрос.Open();
   Колво=Запрос.Fields("COUNT").Value;
   Сообщить (Колво);
   Запрос.Close();
===================
при адаптации его на восьмерку в виде
===================
   wc = Новый COMОбъект("ADODB.Connection");  
   wc.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;server=\\server;PWD=masterkey;UID=sysdba;DBNAME=server:C:\SBOFFICE\SBOFFICE.GDB";
   wc.Open();    
   Запрос=Новый COMОбъект("ADODB.Recordset");
   Запрос.ActiveConnection = wc;
   Запрос.Source = "SELECT count(*) FROM GOODS;";
   Запрос.Open();
   Колво=Запрос.Fields("COUNT").Value;
   Сообщить (Колво);
   Запрос.Close();
===================
выдает ошибку
===================
{Форма.Форма.Форма(9)}: Ошибка при вызове метода контекста (Open)
   Запрос.Open();
по причине:
Произошла исключительная ситуация (Microsoft OLE DB Provider for ODBC Drivers): Не был задан текст команды для командного объекта.
===================
хотя в семерке все работает, помогите разобраться в чем причина ошибки?

Сам нашел :) тема закрыта

   wc = Новый COMОбъект("ADODB.Connection");  
   wc.ConnectionString = "DRIVER=Firebird/InterBase(r) driver;server=\\server;PWD=masterkey;UID=sysdba;DBNAME=server:C:\SBOFFICE\SBOFFICE.GDB";
   wc.Open();    
   RS = Новый COMОбъект ("ADODB.RecordSet");
   RS.Open("SELECT count(*) FROM GOODS", wc);
   Колво=RS.Fields("COUNT").Value;
   Сообщить (Колво);
   RS.Close();