Problem with VBA

[RachelBedi]

Hi guys - need some help with some code - in my form's on current event I have the following code;

Private Sub Form_Current()
Me.Text41 = DLookup("RoleName", "qryRole", "RoleName")
If DLookup("RoleName", "qryRole") = "Dividends" Then
Me.[Bank Modified Date].ColumnHidden = False
Me.[BankTouches].ColumnHidden = False
Me.[BankerFollowUpDate].ColumnHidden = False
Me.[Country].ColumnHidden = False
Me.[State].ColumnHidden = False
Me.[Bank Status].ColumnHidden = False
Me.Text41.ColumnHidden = True
Else
Me.[Bank Modified Date].ColumnHidden = True
Me.[BankTouches].ColumnHidden = True
Me.[BankerFollowUpDate].ColumnHidden = True
Me.[Country].ColumnHidden = True
Me.[State].ColumnHidden = True
Me.[Bank Status].ColumnHidden = True
Me.Text41.ColumnHidden = True
End If
End Sub

Unfortunately for some reason the code stopped showing the columns this morning - it's as if they are all set to false. I'm not entirely sure what's going on and I'm kind of at a loss. Any suggestions?

[RachelBedi]

this was a base query issue though not sure why the code was working for the past two weeks or so....strange