Microsoft Access Expiry Date

Hello I need a script to calculate an expiry date using an integer and an initial date. I have no experience with coding, but I tried the following code copied from a YouTube video; "Private Sub date_Post_Change() Me.date_Exp = Adddate_Exp(Me.date_Post, [login to view URL]) End Sub Public Function Adddate_Exp(date_Post As Date, txtVal As Integer) As Date Dim rst As Recordset Dim db As Database Dim date_Exp As Date Dim icount As Integer End Function" I attached a screenshot image of the form showing I am getting a result in Time instead of Date. I need the value in "Validity" to be added to the date in "Post Date" to give the Expiry Date.