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