here is the offfending code.
Code:
Private Sub loginbutton_Click() Dim rs As Recordset Dim db As Database Set db = CurrentDb Dim searchstr
Private Sub loginbutton_Click() Dim rs As Recordset Dim db As Database Set db = CurrentDb Dim searchstr
Dim Effective_Date As Date
If Me.Effective_Date >= 1/1/10 And Me.Effective_Date <= 12/31/10 Then
[Prem/Ops Manual XS 1] = ([Prem/Ops U/L Manual 1] * 0.09)
[Prem/Ops Umbrella Prem 1] = [Prem/Ops Manual XS
Select Case rng1.value And rng2.value Case rng1.value = 1 & rng2.value = 2 'code here case rng1.value = 2 & rng.value = 2 'code here End Select