Type Mismatch, Cant figure it out. On form after update,query runs fine.

[burrina]

If [PaymentMethod] = "Discover" Or "Mastercard" Or "VISA" Then ' Disable Check Number Field if Credit Card is used.
CheckNo.Enabled = False
DoCmd.OpenForm "CreditCardInformation", acNormal


End If

Results in Type Mismatch error. Query form is based on runs fine. It is a combo with a list as above. If I open the query that the combo uses it works fine as well. Conclusion is my code I guess.

[DatabaseMakers]

If [PaymentMethod] = "Discover" Or [PaymentMethod] ="Mastercard" Or [PaymentMethod] ="VISA" Then ' Disable Check Number Field if Credit Card is used.
CheckNo.Enabled = False
DoCmd.OpenForm "CreditCardInformation", acNormal
End If

[burrina]

Thanks, that worked.