...& "'" & "UNION ALL " & "SELECT '" & strDirective_No & "','','','','','','','','','' FROM Tbl_Task WHERE Tbl_Task.Directive_No = '" & strDirective_No & "'" & "HAVING COUNT(*)=0 " & strSort
dbSrc2.SelectCommand = strQRY2
Return dbSrc2
End Function
Thanks again!
Brenda