Basically
DoCmd.OpenForm "FormNameHere", acNormal, , "[FieldToLimitBy]=" & Me!YourFieldOnForm1
If text:
DoCmd.OpenForm "FormNameHere", acNormal, , "[FieldToLimitBy]=" & Chr(34) & Me!YourFieldOnForm1 & Chr(34)
If Date:
DoCmd.OpenForm "FormNameHere", acNormal, , "[FieldToLimitBy]=#" & Me!YourFieldOnForm1 & "#"