Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmMembers" stLinkCriteria = "[MemberID]=" & Me![List35] DoCmd.OpenForm stDocName, , , stLinkCriteria