Tks MStef
Hi!
Too obvious, no? Incredible but I didn't see.
You'r right, it works fine. Tks for all.
By the way, I don´t know how to include a sort criteria in the expresion:
Private Sub Command55_Click()
DoCmd.OpenReport "Report1", acViewPreview, , Me.Filter
End Sub
Can you help me...