DoCmd.OpenForm "Frm_Company", , , "CompanyRef = " & Me!ListCompany And "Forms!Frm_Company!SubFrm_Contacts", , , "ContactRef = " & Me.ListCompany.Column(1)
The syntax is wrong on this but unfortunatly I don't know how to reference that subform in that command line
Maybe try this...