سلام
data.recorset.sort ="tarikh"
dim a as string
dim b as string
dim f,i,j,h as long
f = -1
a = data1
b = data2
data.recordset.movefirst
for i = 0 to data.recordset.AbsolutePosition step 1
if (data.recordset.fields("tarikh").value = a and f = -1)then f =i
if (data.recordset.fields("tarikh").value = b)then h =i
next i
data.recordest.move(f)
for j = f to h step 1
data2.recordset.addnew
data2.recorset.fields("daramad").value =data.recordest.fields("daramad").value
data2.recorset.fields("tarikh").value =data.recordest.fields("tarikh").value
next j
خب در بانک اطلاعاتی خودتون یک تیبل خالی به هر نامی که دوست دارید ذخیره کنید سپس فیلدهای تاریخ و درآمد را اضافه کنید
سپس کنترل دیتای جدید رو به این تیبل انتصاب کنید