Rs.Open "SELECT * FROM PianiQuery WHERE FisicaEntrata >= #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# AND FisicaUscita<= #" & Format$(DTPicker2.Value, "mm/dd/yyyy") & "# AND Fisico = '" & Combo1.Text & "'", Cn, 0
 

Set DataReport1.DataSource = Rs
'DataReport1.Orientation = rptOrientLandscape
DataReport1.Sections("Section2").Controls("Label10").Caption = Combo1.Text & " Piani elaborati " & DataGrid1.ApproxCount
DataReport1.Sections("Section2").Controls("Label9").Caption = "Report in Dettaglio dal " & DTPicker1.Value & " al " & DTPicker2.Value


With DataReport1.Sections("Section1")
.Controls("TextBox1").DataField = "ID"
.Controls("TextBox2").DataField = "Cartella"
.Controls("TextBox3").DataField = "FisicaEntrata"
.Controls("TextBox4").DataField = "FisicaUscita"
.Controls("TextBox5").DataField = "FisicaTempo"
.Controls("TextBox6").DataField = "RtConsegna"
.Controls("TextBox7").DataField = "DaFisicaARadio"
.Controls("TextBox8").DataField = "Anno"
.Controls("TextBox9").DataField = "PermanenzaFs"
.Controls("TextBox10").DataField = "Fisico"
.Controls("TextBox11").DataField = "TipodiPiano"
End With

DataReport1.Refresh
DataReport1.Caption = "Report in Dettaglio"
DataReport1.Show

Rs.Close
Cn.Close
Set Rs = Nothing