On Error GoTo err:If cmdAdd.Enabled = False ThenAdodcterms2.CommandType = adCmdTextAdodcterms2.RecordSource = "select * from terms where Terms='" & DataCombo3.Text & "'"Adodcterms2.Refresh Dim objDate As Date objDate = CDate(Date) objDate = objDate + Val(Text6.Text) txtFields(7).Text = Format(objDate, "MM/DD/YYYY")End Iferr: If err.Number 0 Then err.Clear Resume Next End If

read more: Calculate Due date VB6 Example