You can combine multiple conditions in the WhereCondition of OpenForm.
Essentially the WhereCondition has to end up like the WHERE clause of a
query, including the correct delimiters. This example shows how to use
criteria on a numeric field, a Text field, and a Date field:
Dim strWhere As String
strWhere = "(MyNumber = 1) AND (MyText = ""dog"") AND (MyDate =
#1/1/2007#")
DoCmd.OpenForm "Form1", WhereCondition:=strWhere