Как добавить месяцы между двумя timedatepickers в VB.NET -что ?

---

У меня есть код, который я вводю данные в свой SQL, вот этот код :

<pre>   
Dim db As ADODB.Connection
        Dim connstr As String
        Dim adoRS As ADODB.Recordset
        Dim sqlstr As String


        If (DateTimePickerFixCosts1.Text = "" Or Val(DateTimePickerFixCosts1.Text) = 0) Then
            Call MsgBox("Please insert Date")
            Exit Sub
        End If
        If (TxtIDFixCosts.Text = "") Then
            TxtIDFixCosts.Text = ""
        End If


        If (TxtItemDescFixCosts.Text = "") Then
            TxtItemDescFixCosts.Text = 0
        End If
        If (TxtPaymentFixCosts.Text = "") Then
            TxtPaymentFixCosts.Text = 0
        End If
        If (txtPriceFixCosts.Text = "") Then
            txtPriceFixCosts.Text = 0
        End If


        If (txtNumberofMonths.Text = "") Then
            txtNumberofMonths.Text = 0
            Exit Sub
        End If


        db = New ADODB.Connection
        db.ConnectionTimeout = 10
        connstr = "Provider = sqloledb;Data Source=ELVIS\SQLEXPRESS;Initial Catalog=Expenses;Trusted_Connection=yes;"
        db.ConnectionString = connstr
        db.Open()
        sqlstr = "Select * from Test_Table where ID = '" & Val(TxtIDFixCosts.Text) & "'"
        adoRS = New ADODB.Recordset
        adoRS.Open(sqlstr, db, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)

        If (adoRS.EOF = True) Then
            ' insert
            adoRS.AddNew()
            adoRS.Fields("Date").Value = DateTimePickerFixCosts1.Value

            adoRS.Fields("Department").Value = TxtFixCosts.Text
            adoRS.Fields("Description").Value = TxtItemDescFixCosts
            adoRS.Fields("Payment").Value = TxtPaymentFixCosts.Text
            adoRS.Fields("Price").Value = txtPriceFixCosts.Text
            MsgBox("Your Record has been inserted")
            adoRS.Update()

        Else
            If (MsgBox("This item in this date is already inserted " & vbCrLf & "Would you like to overwrite it?", MsgBoxStyle.YesNo, "This Item exist") = vbYes) Then
                ' overwrite
                adoRS.Fields("Date").Value = DateTimePickerFixCosts1.Value
                adoRS.Fields("Department").Value = TxtFixCosts.Text
                adoRS.Fields("Description").Value = TxtItemDescFixCosts.Text
                adoRS.Fields("Payment").Value = TxtPaymentFixCosts.Text
                adoRS.Fields("Price").Value = txtPriceFixCosts.Text

                MsgBox("Your data has been overwrited")
                adoRS.Update()
            End If
        End If
        adoRS.Close()
        db.Close()

Поле вниз-это то, что я пытался, я также пытался соединить их, но безуспешно, если есть кто-то, кто может мне помочь, я был бы очень великодушен.

Что я уже пробовал:

' Dim originDate As DateTime = DateTime.Parse(DateTimePickerFixCosts1.Text)
       ' Dim result1 As DateTime = originDate.AddMonths(MonthssToAdd)
       ' MessageBox.Show(result1.ToLongDateString())

---