Народ, в чём проблема, заменяю одну SQL в рекордсете на другую , (которую также сформировал в конструкторе запросов-оба запроса работают в асессе)
"красный" вариант sql строки в ворде работает, "синий"...-пишет- не могу найти таблицу 'тЗн_произв'...


Dim cnn As ADODB.Connection

Set cnn = New ADODB.Connection
cnn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
"C:\БАЗА ДАННЫХ\helukabel\heluk_sayt.MDB"
cnn.Open
Debug.Print cnn.ConnectionString

Dim varData As Variant
Dim intCount As Integer
Dim intI As Integer
Dim SQL As String
Dim sSearch As String

SQL = "SELECT тЗн_произв.значТ FROM тЗн_произв;"
' SQL = "SELECT тЗнач.значТ FROM тЗнач;"
'------------------------------------------------
' здесь мы объявляем и делаем рекордсет
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
' Note that we can't move backwards through
' this recordset.
Set rst.ActiveConnection = cnn
rst.Open (SQL)
' Get all the rows, but only the CompanyName
' and ContactName fields.
varData = rst.GetRows(Fields:=Array("значТ"))

' How many rows did it actually send back?
intCount = UBound(varData, 2) + 1

Ну как это нет..... я запрос делаю в конструкторе аксесса (проверяю) , а затем копирую в ВБА код..........
Думал,- мож ему "з" или "ч" не нравится, делал в [тЗн_произв]
-всё одно-ругается....

Вопрос снят....
лох был прав....я коннектился к другой базе.....