Требуется вставить на лист Word данные из таблицы MSSQL
Макрос рекодером записал код (работает)
Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=True, _
Connection:="Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=R:\CTM\ContrVED\DATA\Contract.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=5;Jet OL" _
, SQLStatement:="SELECT `cust_code` FROM `Item` WHERE ((`item_code` = '53300129'))" & "", _
PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", DataSource:= _
"R:\CTM\ContrVED\DATA\Contract.mdb", From:=-1, To:=-1, IncludeFields:=False
53300129 это код детали
Пытаюсь подставить переменную вместо кода детали - получаю ошибку доступа к базе.
(формирую текстовую строку для SQLStatement)
И как считать поле из MSSQL базы отвечающее критерию в переменную, а не вставлять табличное представление?
Результат выборки всегда уникальное значение.