Доступ из Navision в MySQL базу

[InTacto]

По технологии ADO
Объявляем следующие переменные

Name DataType Subtype Length
db Automation 'Microsoft ActiveX Data Objects 6.0 Library'.Connection
rs Automation 'Microsoft ActiveX Data Objects 6.0 Library'.Recordset
cs Automation 'Microsoft ActiveX Data Objects 6.0 Library'.Command

Код такой.

Create(db)
db.Open('ODBC;DATABASE=' + название базы +
       ';DSN=MySQL51;OPTION=0;PWD=' + Пароль + 
       ';PORT=3306;SERVER=' + имя сервера + ';UID=' + логин + ';')
//db.ConnectionString вернет потом вот что: Provider=MSDASQL.1;Extended Properties="DATABASE=моя_база_данных;DSN=имя_КОННЕКТОРА;
//OPTION=0;PWD=пароль;PORT=порт;SERVER=адрес_сервера;UID=логин"

create(rs)
rs.ActiveConnection = db

create(cs)
cs.ActiveConnection = db

cs.CommandText = 'SELECT * FROM plvendors;' //здесь SQL запрос
rs = cs.Execute


while rs.EOF do
   begin
      // на счет этого не уверен, т.к. код из vba
      переменная := rs!vendorname  // рекордсет и имя поля  - возвращает значение
 
     rs.MoveNext
   end
db.Close