Test all controls for a possible filter then build the where clause for the report
Code:
if not isnull(cboState) then sWhere = sWhere & " and [state]='" & cboState & "'"
if not IsNull(txtName) then sWhere = sWhere & " and [Name]='" & txtName & "'"
if not IsNull(chkContact) then sWhere = sWhere & " and [Contact]=" & chkContact.value
'remove 1st And
sWhere= mid(sWhere,4)
'just use the filter to show data in the form
me.filter = sWhere
me.filterOn = true
'OR
'apply the sql to the report
docmd.openreport "rMeReport",,sWhere