Добрый час, форумчане!

Выполняю лабораторную работу, ее суть в том, чтобы в сгенерировать определенное количество случайных данных в таблицу и посчитать время их выполнения.

Option Compare Database

Sub randomDigits(tableName, fldOt, fldDo, n)
    Start_time = Time()
    Dim i
    Randomize
    With CurrentDb.OpenRecordset("select * from [" & tableName & "]")
        For i = 1 To n
            .AddNew
            !number = Rnd(i) * (fldDo - fldOt) + fldOt
            .update
        Next
    End With
    End_time = Time()
End Sub


Sub button_Click() // процедура для считывания данных из соответствующих полей формы
n = Number19()
fldOt = number_ot()
fldDo = number_do()
randomDigits "table", number_ot, number_do, n
End Sub

Как можно подсчитать не время выполнения этого кода, а именно время от начала до конца построения нужного кол-ва записей в базе данных и вывести в форму?

http://www.sql.ru/forum/1273388/vyvesti-v-formu-vremya-vypolneniya-zaprosa-k-bd