Close Child Popup Page

I have a main page that opens a popup page to enter data. Once the data is entered, it is then updated in the database, “clicks” a button on the main parent page to refresh that value on the main page, then I want the popup page to close. It all works, except for closing the popup page. This code is on the popup page:
Public Sub enterVal()
Dim sql As String
        Dim cmd As New dbCmd
        Dim cptCode As String
        Dim cptCodeSel As String
        Dim cptDescSel As String
 
        cptCode = CPTDesc.Text
        cptCodeSel = Left(cptCode, InStr(cptCode, "-") - 2)
        cptDescSel = Mid(cptCode, (InStr(cptCode, "-") + 2))
&ls ...