' Set Up Default Values
strMy = LogExecution("CalcfrmINV_INVESTMENT_S", "R0076", _
rstSource("RECID"), "INV_INVESTMENT_S", "SR")
dblSrc1 = 0
dblSrc2 = 0
If Not IsNull(rstSource("FUND_REALESTINC_A")) Then
dblSrc1 = rstSource("FUND_REALESTINC_A")
End If
If Not IsNull(rstSource("INV_REALESTPCT_A")) Then
dblSrc2 = rstSource("INV_REALESTPCT_A")
End If
dblSrc4 = 0
If dblSrc1 <> 0 And dblSrc2 <> 0 Then
dblSrc4 = dblSrc1 * dblSrc2 * 0.01
End If
strSQL = "UPDATE INV_INVESTMENT_S SET INV_REALESTINC_A = '" _
& CStr(dblSrc4) & "'" _
& " WHERE INV_C = '" & rstSource("INV_C") & "'"
cmd.CommandText = strSQL
cmd.Execute lngAffected
strMy = LogExecution("CalcfrmINV_INVESTMENT_S", "R0076", _
rstSource("RECID"), "INV_INVESTMENT_S", "ER")
rstSource.MoveNext
Loop
rstSource.Close
440 ...