This assumes ID is numeric & ID is the correct field name:
Private Sub Form_EditRecord(Cancel As Integer)
Dim stLinkCriteria As String
stLinkCriteria = "[ID] = " & Me.[YourTextBox]
DoCmd.OpenForm "YourFormName", , , stLinkCriteria
End Sub
If ID is a String: stLinkCriteria =...