Sub jkgsdf()
    Dim dbAccess As Database
    ' переменная типа набор записей
    Dim reRecordSet As Recordset
    ' здесь будет SQL запрос
    Dim stSQL As String
    ' переменные
    Dim status As String
    status =  3 
    
     ' откроем базу данных
    Set dbAccess = OpenDatabase(stDBGetPath)
    'получение значения
    stSQL = "SELECT * FROM [ИМЯ ТАБЛИЦЫ] WHERE Field1 = " & status 
    Set reRecordSet = dbAccess.OpenRecordset(stSQL)
    ' вывод
    a = reRecordSet.Fields( 1 )
    ' или
    a = reRecordSet!Field2
    ' закрытие
    reRecordSet.Close
    Set reRecordSet = Nothing
    dbAccess.Close
    Set dbAccess = Nothing
End Sub
Function stDBGetPath() As String
    Dim stTemp As String
    ' взять путь нахождения активной книги
    stTemp = ThisWorkbook.path
    ' прибавить имя базы данных
    stDBGetPath = stTemp + "\" + "NLK.mdb"
End Function