How to make a form show a partiular record when open it?

[aquaraider]

Oh it has length limitation for the title, what I actually want to ask is,

How to make a form show a partiular record when open it? But I can still navigate to other records?
Just like a book, I can open it to Page 3 but I can still go to Page 4 later.

Here is my code:

Private Sub EditOrder_Click()
On Error GoTo Err_EditOrder_Click
Dim stDocName As String


Dim stLinkCriteria As String
stDocName = "Edit Order"

stLinkCriteria = "[OrderID]=" & Me![OrderID]
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
DoCmd.Close acForm, "Orders"
Exit_EditOrder_Click:
Exit Sub
Err_EditOrder_Click:
MsgBox Err.Description
Resume Exit_EditOrder_Click
End Sub

It's a button on "Orders" form, when I click on it ,it will open "Edit Order" with the same record shown on "Orders" form.

but "Edit Order" form now has a (Filtered) on the bottom near Navigation Buttons, which makes it will only shows that single record and I cannot navigate to others.

Does anyone would like to tell me how to make navigation button works without impact on any other funtions? (eg. I don't want to refresh the form if it makes the form jumps back to the 1st record, I just want to navigate it from X's record to X+1 or X-1's record)

Sorry for my poor English, and thanks very much.

[SoftwareMatters]

Hi,
Try this (haven't tested it but the principle seems right!):
stDocName = "Edit Order"
DoCmd.OpenForm stDocName
With Forms![Edit Order]!.Form.RecordsetClone
.FindFirst "[OrderID]=" & Me![OrderID]
If Not .NoMatch Then Forms!Edit Order!.Form.Bookmark = .Bookmark
End With

[aquaraider]

Hi,
Try this (haven't tested it but the principle seems right!):
stDocName = "Edit Order"
DoCmd.OpenForm stDocName
With Forms![Edit Order]!.Form.RecordsetClone
.FindFirst "[OrderID]=" & Me![OrderID]
If Not .NoMatch Then Forms![Edit Order]!.Form.Bookmark = .Bookmark
End With

Thank you very much for help, I've made some changes on the code, it works perfect now.:-)