Оптимизировать код обработки данных Access - Visual Basic .NET

Формулировка задачи:

Всем доброго дня! Подскажите как оптимизировать (ускорить обработку) данных хранящихся в таблицах Access. Есть 2 таблицы - [Данные сотрудников] и [Инструктажи сотрудников]. В [Инструктажи сотрудников] хранятся хранятся данные о всех инструктажах Сотрудников (их у сотрудника может быть МНОГО). Код из [Данные сотрудников] привязан к Номеру сотрудника в [Инструктажи сотрудников] Процедура работает - не хотелось бы максимально ускорить . Скорее всего можно как-то составить SQL запрос.... Но я не знаю как... Вот сам код процедуры:

 Private Sub Podschet() ' Процедура получения количества просроченных инструктажей
        ' Процедура получения количества просроченных инструктажей
        KolInsr = 0 ' Задаем количество просроченных инструктажей равным 0
 
        'Заполняем таблицу сотрудниками
        DT6.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Данные сотрудников] ORDER BY [Фамилия]", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT6) ' Заполняем таблицу результатми
        Con.Close()
        ' __________________________________________________________________________________

        Dim KolStrok As Integer = DT6.Rows.Count 'находим число строк в таблице DT6
 
        Dim SotrMass(KolStrok + 1, 2)  ' Объявляем массив для данных
        Dim n As Integer = 0 ' счетчик строк таблицы DT6
 
        Dim y As Integer = 0
       
        For stroka = 1 To KolStrok
            Dim qqq = DT6.Rows.Item(n)
            
            'Заполняем таблицу проведенными Инструктажами
            DT15.Clear() 'Очищаем таблицу
            
            SqlCom = New OleDb.OleDbCommand("SELECT * FROM [Инструктажи сотрудников] WHERE ([Номер сотрудника]=" & qqq.ItemArray(0).ToString & ") ORDER BY [Дата проведения]", Con) ' Указываем строку запроса и привязываем к соединению
            Con.Open() ' Открываем соединение
            SqlCom.ExecuteNonQuery() 'Выполняем запрос
            DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
            DA.Fill(DT15) ' Заполняем таблицу результатми
            Con.Close() ' Закрываем соединение
            
            Dim KolStrok2 As Integer = DT15.Rows.Count 'находим число строк в таблице DT15
 
            If KolStrok2 = 0 Then ' Заменить на DT15.Rows.Count
                KolInsr = KolInsr + 1
            Else
                Dim qqq1 = DT15.Rows.Item(DT15.Rows.Count - 1)
                Dim dat2 As Date = CDate(qqq1.ItemArray(3).ToString) 'Получаем дату последнего инструктажа
                Dim dat3 As Date ' Дата следующего инструктажа
                '_________________________________________________
 
                If qqq1.ItemArray(4).ToString = "" Then
                    'Если интервал прохождения не задан то по умолчанию ставим 3 месяца
                    dat3 = DateAdd("m", 3, CDate(qqq1.ItemArray(3).ToString))
 
                Else
                    'Находим дату следующего инструктажа
                    dat3 = DateAdd("m", CInt(qqq1.ItemArray(4).ToString), CDate(qqq1.ItemArray(3).ToString))
                    'qqq1.ItemArray(4).ToString - здесь берем интервал следующего инструктажа
                End If

                Dim nnn As Long = DateDiff(DateInterval.Day, dat3, Now)
 
                If nnn > 0 Then 'Если промежуток больше 0 дней от 
                    KolInsr = KolInsr + 1 'прибавляем к колличеству 1
                    y = y + 1
 
                Else
 
                End If
 
            End If
 
            n = n + 1
 
        Next
 
        Label1.Text = "Просрочено инструктажей : " & "" & KolInsr
        Label2.Text = "Всего сотрудников : " & "" & CStr(KolStrok)
        If KolInsr = 0 Then
            Label1.ForeColor = Color.Green
            Label1.Text = "Просроченных инструктажей нет "
        End If

    End Sub

Решение задачи: «Оптимизировать код обработки данных Access»

textual
                            Листинг программы 
                        

                            'выбрать все записи по имени сотрудника nm
Dim row() As DataRow = tb.Select("employee.Name=" & Chr(39) & nm & Chr(39))
'выбрать все записи в интервале дат [dat1, dat2]
Dim rw() As DataRow = (From r As DataRow In tb.Rows Where r!insDate >= dat1 AndAlso r!insDate <= dat2).ToArray
                        