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