Calculate Due date VB6 Example

On Error GoTo err:

If cmdAdd.Enabled = False Then
Adodcterms2.CommandType = adCmdText
Adodcterms2.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 If
err:
    If err.Number <> 0 Then
        err.Clear
        Resume Next
    End If