I have given below a code snippet where i am able to generate a ppt with one slide. In a loop the followig code snippet will be passed with new "dbId" and for each "dbId" new slide has to be added in the already existing PPT as extra slides.

Please suggest me how to change this code so as to add the slides in the already generated powerpoint with data generated.

Dim ss As DAO.Recordset
Dim DB As Database
Dim query As String
Set DB = CurrentDb()
query = "select title from tbl_weight_technical where database_id = " & dbId
Set ss = DB.OpenRecordset(query, dbOpenSnapshot)
If ss.RecordCount = 1 Then
Dim path As String
Dim ppApp As Object
Set ppApp = CreateObject("PowerPoint.Application")
path = GetdbPath & "main_pic\template.ppt"
ppApp.Visible = True
Dim ppPres As Object
Set ppPres = ppApp.Presentations.Open(path, False, True, True)
Dim ppSlide1 As Object
Set ppSlide1 = ppPres.Slides(1)
Dim ppShape1 As Object