[مصمم هاوي]

تفضل أخي الكريم
مع ملاحظة ضرورة تعديل اسم الجدول وأسماء الحقول التي لديك في جدول قاعدة بياناتك

كود :

Call ConnectionDatabase

If Rs.State = adStateOpen Then Rs.Close
Rs.Open "Select ID,Name,Date1,Date2 From Emp_Data WHERE [Date1] > '" & Val(Text1.Text) & _
"' AND [Date2] < '" & Val(Text2.Text) & "'", db, adOpenStatic, adLockOptimistic

MSHFlexGrid1.Clear
If Rs.RecordCount > 0 Then
    
        Set MSHFlexGrid1.DataSource = Rs
Else
        Set MSHFlexGrid1.DataSource = Nothing

End If

MSHFlexgridAlignment