[ملهمـ]

كود :

    Dim SQLstr As String = "SELECT id,num2,name1,date2,name2,fax,note1,name3,num3,num4,num5,num6,num7,num8,num9,num10,num11,num12,num13,num14,num15,num16,num17,num18,num19,num20 FROM [Table2] WHERE num19 BETWEEN '" & Date.Now.Date & "' AND '" & Date.Now.Date.AddDays(30) & "'"

جرب الكود الآن وأخبرني بالنتيجة