Set PriceForm = Form2
Set PriceChildGrid = PriceForm.TDBGrid2

SourceBase = "D:\Spider 7\Прейскурант\DataBase.mdb;"

connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceBase & ";Persist Security Info=False"
connection.Open

SQL = "SELECT Прейскурант.Код_пр, Прейскурант_материалы.Название_работы, Прейскурант_под.Кол, Прейскурант_материалы.ЕдИзм, Прейскурант_материалы.Цена, [Кол]*[Цена] AS ИтогоЦена, Прейскурант_материалы.Поставщик, Прейскурант_материалы.Валютная, Прейскурант_под.Код_пр_под " & _
        "FROM Прейскурант INNER JOIN (Прейскурант_материалы INNER JOIN Прейскурант_под ON Прейскурант_материалы.Код_материала = Прейскурант_под.Код_материала) ON Прейскурант.Код_пр = Прейскурант_под.Код_пр " & _
        "ORDER BY Прейскурант_под.Код_пр_под DESC " & _
        "UNION ALL " & _
        "SELECT Прейскурант.Код_пр, 'Організаційно-технічний супровід встановлення обладнання' AS Название_работы, CVar([ТехСопр])*100 AS Кол, '%' AS ЕдИзм, Null AS Цена, Sum(Прейскурант_под.Кол*Прейскурант_материалы.Цена*Прейскурант.ТехСопр) AS ИтогоЦена, Null AS Поставщик, Null AS Валютная, Прейскурант.Код_пр*(-1) AS Код_пр_под " & _
        "FROM Прейскурант INNER JOIN (Прейскурант_материалы INNER JOIN Прейскурант_под ON Прейскурант_материалы.Код_материала = Прейскурант_под.Код_материала) ON Прейскурант.Код_пр = Прейскурант_под.Код_пр " & _
        "GROUP BY Прейскурант.Код_пр, CVar([ТехСопр])*100 " & _
        "ORDER BY Код_пр_под DESC"

rsChildPrice.CursorLocation = adUseClient
rsChildPrice.CursorType = adOpenDynamic

rsChildPrice.LockType = adLockOptimistic
rsChildPrice.Open SQL, connection

Set PriceChildGrid.DataSource = rsChildPrice

Private Sub TDBGrid2_Error(ByVal DataError As Integer, Response As Integer)
On Error Resume Next
Response =  0 
rsChildPrice.Requery
End Sub

Private Sub TDBGrid2_BeforeColUpdate(ByVal ColIndex As Integer, OldValue As Variant, Cancel As Integer)
SQL = "UPDATE Прейскурант_под SET ........."
connection.Execute SQL
Cancel =  1 
Timer1.Interval =  10 
End Sub

Private Sub Timer1_Timer()
rsChildPrice.Requery
Timer1.Interval =  0 
End Sub