Datetimpicker

[ralphzxess]

Hi there!
Pls help me with my code
i want to save the values from these code wriiten below,but the value did not incremented after saving..please help me

thank you!

Dim startDate = Date.Today
        Dim endDate = DateTimePicker1.Value.Date
 
        Do While startDate <= endDate
            MsgBox(startDate.ToShortDateString)
            startDate = startDate.AddMonths(1)
        Loop
 
        strSQL = "Insert into Lenders_CollectDate (TransactionID,DateCollect_1,dateCollect_2,DateCollect_3) values ('" & txtTransacID.Text & "','" & startDate.ToShortDateString & "','" & startDate.ToShortDateString & "','" & startDate.ToShortDateString & "')"
        SQLalter_Table(strSQL)
        MsgBox("Ok")