[superwoofer]

الفاتورة

If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM الجدول WHERE اسم حقل الفاتورة BETWEEN " & Text1.Text & " AND " & Text2.Text & " ORDER BY اسم حقل الفاتورة ", db, 1, 3
Set DataGrid1.DataSource = rs
If rs.EOF Then
MsgBox "no found", vbInformation
End If

التاريخ

If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT * FROM الجدول WHERE اسم حقل التاريخ between #" & DTPicker1 & " # and #" & DTPicker2 & "#" & " order by اسم حقل التاريخ", db, 1, 3

Set DataGrid1.DataSource = rs
If rs.EOF Then
MsgBox "no found", vbInformation
End If