[Anas Mahmoud]

التواريخ مجرد تجربة ، قم بالاستعلام عن تاريخ اخر سجل عندك ، لااعلم نوع قاعدة البيانات لديك 

كود :

       Dim LastAddedDate As Date = #8-19-2020# 'اخر تاريخ يمكنك الاستعلام عنه من قاعدة البيانات
       Dim FirstAllowedDate As Date = LastAddedDate.AddDays(7) 'اول تاريخ مسموح به
       Dim DateToBeAdded = #8-20-2020# 'التاريخ المطلوب اضافته


       If DateToBeAdded.Date >= FirstAllowedDate.Date Then
           'كود اضافة التاريخ لقاعدة البيانات
       Else
           MsgBox("لا يمكنك الاضافة الا بعد اسبوع")
       End If