Первый раз в жизни коннекчусь к своей незащищённой базе (в данном случае нужно из ворда или экселя...)
Копирую из Гетса.....
Что ему не нравится?? (пишет: User defined tupe not defined)
' коннект к базе
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & _
CurrentProject.Path & "\heluk_sayt.MDB"
cnn.Open
Debug.Print cnn.ConnectionString
Set cnn = Nothing

пока писал-понял,что наверное дело в неподключённости библиотеки "Microsoft ADO Extensions 2.1 for DDL and Security object library "
вот понаключал...но не помогло....
1)Скажите какой файл нужно было подключить ?? может его нет в списске??
2) в чём моя ошибка??

теперь пишет ошибку "Невозможно подключение для выполнения операции.Оно закрыто или не допускается в данном контексте"
что не в порядке
П.С. ну в первый раз я этим занимаюсь....простите

'------------------------------------------------
' коннект к базе
' здесь я подключил библиотеку "Microsoft ActiveX Date Objects 2.6 library"
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"
'CurrentProject.Path & "\heluk_sayt.MDB"
cnn.Open
Debug.Print cnn.ConnectionString
Set cnn = Nothing
' окончание коннекта
'------------------------------------------------

Dim varData As Variant
Dim intCount As Integer
Dim intI As Integer
Dim SQL As String
Dim sSearch As String
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 = CurrentProject.Connection
'rst.CursorType = adOpenForwardOnly
'rst.LockType = adLockReadOnly
rst.Open (SQL)
' Get all the rows, but only the CompanyName
' and ContactName fields.
varData = rst.GetRows(Fields:=Array("значТ"))
rst.Close
Set rst = Nothing
' закрываем рекордсет
'------------------------------------------------

здесь наверное нужно поставить adCmdText !??
только вопрос такой: Почему в моей базе (mdb) рекордсет создаётся, а когда я создаю рекордсет из экселя... -мой код пишет ошибки ,и как вы говорите, нужен метод Command ?????