Any ideas what this is?

Hi,

I run the following code to produce a report, but the report appears blank. I just can't see why, there should be 3 records on it.

Any ideas? I'd be very grateful......

DoCmd.OpenForm "Clinical Audit Report Form"
Forms![Clinical Audit Report Form].Visible = False

Dim stdoc3, stlc4, stdatenew2, stld4 As String

stdoc3 = "OverdueRecommendations"

stdatenew2 = "Forms![Clinical Audit Report Form].[Subform Recommendations]![Timescale] < date()"

stlc4 = "[Forms]![Clinical Audit Report Form].[subform Recommendations]![Date Completed] is null" & " And " & "[Forms]![Clinical Audit Report Form].[subform Recommendations]![Timescale] is not null"

stld4 = stlc4 & " And " & stdatenew2

If [report to print] = 14 And IsNull(Me![date1]) Then DoCmd.OpenReport stdoc3, acPreview, , stld4

DoCmd.Close acForm, "Clinical Audit Report Form"