lagbolt thanks 4 responding. i used this code
On Error GoTo Err_cmdGo_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Form namr"
stLinkCriteria = "field name =" & Me![text name]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_cmdGo_Click...