Dim xlApp as Object, wbk as Object, rs as DAO.Recordset
Set xlApp = CreateObject("Excel.Application")
Set wbk = xlApp.Workbooks.Open("C:\Doc\Raznoe\MyFile.xls")
xlApp.Visible = True 'или False, если надо невидимо для юзера
Set rs = CurrenDB.Openrecordset("Select * from Table1 Where [Профессия]= " & wbk.WorkSheets("Отчет").Range("A4").Value)

Do Until xlwProd.Worksheets( 2 ).Cells(RowNumber,  1 ).Value = Null
что-то там

RowNumber= RowNumber+ 1 
Loop 

Set rs = db.OpenRecordset("SELECT * FROM ПрофРаботыЕТКС WHERE [Профессия]= " & xlwProd.Worksheets( 1 ).Cells( 4 ,  2 ).Value &
" AND [Выполняемые работы]= " & xlwProd.Worksheets( 2 ).Cells(RowNumber,  1 ).Value) 

Public Function XFileDial(Optional MyPath As String) As Variant
'диалог выбора файла *.mdb на выходе Null или путь
'подключить Microsoft Office XX Object Library
Dim MyDial As FileDialog
Set MyDial = Application.FileDialog(msoFileDialogOpen)
MyDial.AllowMultiSelect = False
MyDial.Filters.Clear
MyDial.Filters.Add "Access", "*.mdb"
MyDial.Title = "Выбор файла для Link-таблицы"
MyDial.Show
If MyDial.SelectedItems.Count >  0  Then
                  XFileDial = MyDial.SelectedItems( 1 )
                                  Else
                  XFileDial = Null
End If
 Set MyDial = Nothing
End Function