Dim strSQL1 As String = "SELECT [id], [DateVerify], [StartUpDate], [Factory], [idManufactory], [idUnit], [ConstantCounter], [Dt], [Do], [kDischarge], [kExpansion], " _
                            & "[idSubstance], [Pressure], [PressureM], [Temperature], [Density], [TemperMetering], [CountCheck], [GradYear], [ExplYear], [TK], [cst], " _
                            & "[Status], [Info], [DateRep], [FIO], [grad],Round((Do/Dt)^2,4) as DDif FROM tblPasport;"

Dim strSQL3 As String = "Select tblPasport.*, Manufactory, Unit, nSubstance, Round((Do/Dt)^2,4) as DDif From ((tblPasport LEFT JOIN tblManufactory ON tblPasport.idManufactory=tblManufactory.id) LEFT JOIN tblUnit ON tblPasport.idUnit=tblUnit.id) LEFT JOIN tblSubstance ON tblPasport.idSubstance=tblSubstance.id"

Dim strSQL As String="UPDATE..."
Dim cmd As New OleDb.OleDbCommand(strSQL, conn)
With cmd.Parameters
'...
End With
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()