All pastes #79985 Raw Edit

Mine

public text v1 · immutable
·published 2006-07-05 22:53 UTC
rendered paste body
Do
If IsNull(EffectiveDate) Then
EffectiveDate = myRST1.Fields("Effective_date").Value
End If
If myRST1.Fields("Effective_date").Value > EffectiveDate Then
EffectiveDate = myRST1.Fields("Effective_date").Value
End If
Loop Until myRST1.EOF