Code works in 97, but not 2000

[milte]

Hello everyone,

I have a form that sorts records. I have a button on that form that after the person finds the record he wants, he can click the button and go directly to that record. This program works fine in '97 version, but when I convert it to 2000, the filtered form comes up blank. I've also opened it up in 2000 without the conversion and get the same results.

Here's my code:

Private Sub Number_Click()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmAddDel"

stLinkCriteria = "[Number] = Forms![frmApplicants]![Number]"

DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.RunCommand acCmdApplyFilterSort

Exit_Number_Click:
Exit Sub

Err_Number_Click:
msgbox Err.Description
Resume Exit_Number_Click

End Sub


Thanks for any help you can give me.

Milt