[عمور2016]

Private Sub Command1_Click()
If RS.State = adStateOpen Then RS.Close
XDEBUT = Val(Text1)
XEND = Val(Text2)
RS.Open "Select * From INVOICE where  [ID] BETWEEN " & XDEBUT & " and " & XEND & " ORDER BY [ID]", DB, adOpenStatic, adLockPessimistic
ActiveReport1.DataControl1.Recordset = RS.Clone

ActiveReport1.PrintReport False
End Sub