Добавить неделю до даты vb.net

Question

В настоящее время я делаю программу мероприятий в VB.NET, где пользователь может добавлять ежедневные/еженедельные/ежемесячные/ежегодные события в базу данных. Их два варианта: -Добавление появления x раз в StartDate. (http://i.imgur.com/LiRrZYy.png[ ^]) -Добавление события между StartDate и EndDate. (http://i.imgur.com/gC6bcSt.png[ ^]) Когда я добавляю недели от 2 апреля до 29 из мая/2 апреля x раз, он генерирует в нем некоторые случайные значения. Есть ли способ исправить это? Это мой код:

Case rbnWeekly.Checked 'Weekly mode with Enddate and StartDate 
       If rbnStartEnd.Checked = True Then 
        Dim startDate As Date = dtpStartDate.Text 
        Dim endDate As Date = dtpEndDate.Text 
        Dim currDate As Date = startDate 
        Do While (currDate < endDate) 
         SQL = String.Format("INSERT INTO tblManual (StartDate, EndDate, UniqueID) VALUES (#{0}#, #{1}#, '{2}')", currDate, endDate, id) 
         scmdRecurrence.CommandText = SQL 
         Valueee += 1 
         scmdRecurrence.ExecuteNonQuery() 
         currDate = currDate.AddDays(7) 
        Loop 
        MsgBox(Valueee.ToString & " records toegevoegd") 
       Else 'Weekly mode with x times 
        Dim aantal As Integer = txtHerhaling.Text 
        Dim startDate As Date = Date.Today 
        Dim endDate As Date = startDate.AddDays(aantal * 7) 
        Dim currDate As Date = startDate 
        Do While (currDate < endDate) 
         SQL = String.Format("INSERT INTO tblManual (StartDate, EndDate, UniqueID) VALUES (#{0}#, #{1}#, '{2}')", currDate, endDate, id) 
         scmdRecurrence.CommandText = SQL 
         Valueee += 1 
         scmdRecurrence.ExecuteNonQuery() 
         currDate = currDate.AddDays(7) 
        Loop 
        MsgBox(Valueee.ToString & " records toegevoegd") 
       End If 

Answer 1

В SQL, необходимо правильно отформатированные строки выражения для значения дат, которые будут вставлены:

.. , currDate.ToString("yyyy'/'MM'/'dd"), endDate.ToString("yyyy'/'MM'/'dd"), id)