хочу получить значение цен из таблицы виртуемарт

RecordSet= Новый COMОбъект("ADODB.RecordSet");
        
    RecordSet.ActiveConnection = Соединение;
  
    RecordSet.Source = "SELECT * FROM "+PrefixTable+"_virtuemart_product_prices WHERE virtuemart_product_id = '1'; ";
            
          RecordSet.Open();
выдает ошибку
Произошла исключительная ситуация (Microsoft OLE DB Provider for ODBC Drivers): Command text was not set for the command object