Worked in Windows 2000 but not XP

[Opal]

My workstation where I work was recently updated from Windows 2000 to
Windows XP.
I am running Access 2003 and have the following code running

Private Sub cmdViewRegisForm_Click()
On Error GoTo Err_cmdViewRegisForm_Click

Dim stDocName As String
Dim strWhere As String

stDocName = "rptKCRegis"
strWhere = "[KCID] = " & Me.IDNumber

DoCmd.OpenReport stDocName, acPreview, , strWhere
Me.Visible = False
Forms!frmSearchKC.Visible = False

Exit_cmdViewRegisForm_Click:
Exit Sub

Err_cmdViewRegisForm_Click:
MsgBox Err.Description
Resume Exit_cmdViewRegisForm_Click
End Sub

It worked fine on Windows 2000, but now that I am running
XP, the:

Me.Visible = False
Forms!frmSearchKC.Visible = False

Do not work. The forms are still visible. Any suggestions
as to how I overcome this? Thank you.