Powerpoint to Access

[plutz]

I'm using the the following code to transfer from Access to powerpoint. How can I modify the code to close powerpoint and open access?

Private Sub SomeButtonName_Click()

Dim oApp As Object

Set oApp = CreateObject("Powerpoint.Application&quot
oApp.Visible = True
oApp.Presentations.Open FileName:="Full path to pps"

End Sub