I figured it. The code below works
Thanx for your help
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmKeyWordResults"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm...