Function Code_Fragment_7_8()

Dim dbs As Database
Dim Part_A, Part_B As String

Set dbs = CurrentDb()

Part_A = "UPDATE INCUMBENTS " _
       & "SET END_DATE = DATE() " _
       & "WHERE SSN = " & Chr(34) & "111223333" & Chr(34) & " " _
       & "AND PCN = " & Chr(34) & "341288" & Chr(34) & " " _
       & "AND END_DATE >=DATE() " _
       & "AND START_DATE<DATE();"

Part_B = "DELETE * " _
       & "FROM INCUMBENTS " _
       & "WHERE SSN = " & Chr(34) & "111223333" & Chr(34) & " " _
       & "AND PCN = " & Chr(34) & "341288" & Chr(34) & " " _
       & "AND START_DATE > DATE();"

dbs.Execute (Part_A)
dbs.Execute (Part_B)

End Function
