Private Sub Tumba_Yumba()

'Перехват обработки ошибок.
On Error GoTo Err_Tumba_Yumba

'Локальные переменные.
Dim Rs  As ADODB.Recordset
Dim Str As String


'Запрос для набора записей.
Str = "SELECT Поле1 FROM Table"

'Новый объект - набор записей.
Set Rs = New ADODB.Recordset

'Обработка объекта.
With Rs

    'Открытие набора записей согласно запросу.
    .Open Str, CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly

    'Проверка наличия записей.
    If Not (.BOF And .EOF) Then

        'Сообщение - успех.
        MsgBox "Значение нашего Gоля1 в нашей Table = " & Nz(.Fields("Поле1").Value)

    Else
      
        'Сообщение - провал.
        MsgBox "Нету там ничего!"
  
    End If

    'Закрытие набора записей с первым запросом.
    .Close

End With


'Нормальное завершение процедуры.
Tumba_Yumba_Exit:
    Set Rs = Nothing
    Exit Sub

'Заверешние работы процедуры после обработки ошибок.
Exit_Tumba_Yumba:
    Err.Clear
    On Error Resume Next
    Rs.Close
    Set Rs = Nothing
    Exit Sub

'Обработка ошибок.
Err_Tumba_Yumba:
    MsgBox Err.Description & vbCrLf & "Код ошибки: " & Err.Number, vbCritical, "Sub [Tumba_Yumba]"
    Resume Exit_Tumba_Yumba