continous records problem

[Geraldine Hobley]

Hello,
I have a problem with a form with continuous records.
I'm using the code below to place the cursor on a specific
record when it matches a value in the recordset. This
works fine in the ADP (Access project connect to sql
server), however when an ade is built it doesn't work and
the first row is highlighted each time, any ideas would be
appreciated.

If (Not (rst1.EOF)) Then
IntActiveBusinessId = rst1!BusinessID
End If

While IntCurrentId <> IntActiveBusinessId
DoCmd.GoToRecord , , acNext
IntCurrentId = Forms![frmBusinessDetails]!
[BusinessDetailsKey]
Wend


regards

Geri