Dim strSQL as String
strSQL = "SELECT * FROM tblData WHERE "
If [chkOne] Then
strSQL = strSQL & "[Field1] = '" & txtOne & "' AND "
End If
// additional conditions as desired for any
// number of checkbox / text field pairs
// strip trailing " AND "
strSQL = left(strSQL, Len(strSQL - 5))
// do something with your query (like DoCmd.OpenForm)