Поясню проекты в стоительстве (я там работаю) длятся не меньше 6 месяцев -это аксиома!!!

А теперь господа предоставляю код, который я сообразил на поставленный первичный вопрос, в студию


Private Sub Êíîïêà0_Click()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant
Dim sSQL As String
Dim p As String
Dim result As Integer
Dim fileName As String
DoCmd.RunSQL "delete * from balance"
' Open connection.
Dim a As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Âûáîð ïðîåêòà"
.Filters.Add "Âñå ôàéëû", "*.*"
.Filters.Add "Ïðîåêòû", "*.mpp"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = CurrentProject.Path
result = .Show
If result <> 0 Then
p = Trim(.SelectedItems.Item(1))
End If
End With
If p = "" Then GoTo n1
Set db = CurrentDb

strCnn = "Provider=Microsoft.Project.OLEDB.10.0;Project Name=" & p
sSQL = "SELECT Taskcost,TaskName,Taskfinish FROM Tasks"

Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

' Open employee table.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open sSQL, cnn1, , , adCmdText

' Ïîïûòêà ðåøåíèÿ çàäà÷è
'--------------------------------------------
Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do While Not rstEmployees.EOF
msg = rstEmployees.Fields.Item("taskcost")
msg1 = rstEmployees.Fields.Item("taskname")
msg2 = rstEmployees.Fields.Item("taskfinish")

rcd.AddNew
rcd!name_balance = msg1
rcd!price_balance = msg
rcd!time_balance = msg2
rcd.Update
rstEmployees.MoveNext
Loop
cnn1.Close
rcd.Close
Set cnn1 = Nothing
Set rstEmployees = Nothing
n1:
Call isprav
End Sub

Private Sub isprav()
Dim rcd As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb

Set rcd = db.OpenRecordset("balance", dbOpenDynaset, dbSeeChanges)
Do
If rcd.EOF Then GoTo exit1
rcd.Edit
rcd!price_balance = rcd!price_balance / mes
rcd.Update
rcd.MoveNext
Loop
exit1:
End Sub

Private Function mes()
a = DMax("time_balance", "balance")
b = DMin("time_balance", "balance")
mes = DateDiff("m", b, a)
End Function

Так вот, всё работает быстро, а хотелось бы ещё быстрее,
В конечном итоге вопрос заключался в следующем:
А можно всё сделать также(в конце получить такой же результат), но без
проги ISPRAV.
Настоящие программеры разберутся,что имелось ввиду.

Если Goto ненужен, тогда зачем его придумали.

Круто!!!
А что если использовать
Docmd.RunSql "UPDATE balance SET price_balance = price_balance / " & mes()"
это тоже самое или я ошибаюсь?

к тому же помимо ошибок, Goto всё таки иногда тоже полезен, когда надо проскочить часть текста программы, причём нельзя использовать конструкцию If...Else

Не буду спорить, а за подсказку спасибо,
как говорится "Век живи, век учись", кстати в Лестнице выложил прикольные анекдоты.