Can you try:
Code:
Dim z6stat As Recordset
Set z6stat = CurrentDb.OpenRecordset("SELECT tbl_Z6_Status.* FROM tbl_Z6_Status WHERE [Z6_STATUS_DATE] = #" & DMax("[Z6_STATUS_DATE]", "[tbl_Z6_Status]", "[PROJECT] = '" & Forms!frmSectionManager!myPrj & "' AND [Z6] = '" & Forms!frmSectionManager!sel_Z6 & "'") & "#;", dbOpenDynaset)
'z6stat.FindFirst "[Z6_STATUS_DATE] = #" & DMax("[Z6_STATUS_DATE]", "[tbl_Z6_Status]", "[PROJECT] = '" & Forms!frmSectionManager!myPrj & "' AND [Z6] = '" & Forms!frmSectionManager!sel_Z6 & "'") & "#"
If z6stat!Z6_STATUS <> "CLOSE" Then...
Cheers,