Multiple items from access to PowerPoint

I have a line of code that I have downloaded from the web to allow me to transfer info. from microsoft acces to power point however I need to alter it to transfer more than one item and place it in specific place on the slides or even on a table. However I dont know anything about VBA so I was looking to see if anyone could give me some help with how I add oher fields in this code and how I would place the items in different places or how to use this code or another one if you know of one to allow me to put items n a table from there i can figure out the rest. Here is the code. thanks in advance.


Option Compare Database

Option Explicit


Sub cmdPowerPoint_Click()
Dim db As Database, rs As Recordset
Dim ppObj As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation

On Error GoTo err_cmdOLEPowerPoint

' Open up a recordset on the Employees table.
Set db = CurrentDb
Set rs = db.OpenRecordset("qryOpenJobLog", dbOpenDynaset)

' Open up an instance of Powerpoint.
Set ppObj = New PowerPoint.Application
Set ppPres = ppObj.Presentations.Add

' Setup the set of slides and populate them with data from the
' set of records.
With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "37 COMM SQUADRON"
.SlideShowTransition.EntryEffect = ppEffectFade
With .Shapes(2).TextFrame.TextRange
.Text = CStr(rs.Fields("JCN").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With
With .Shapes(3).TextFrame.TextRange
.Text = CStr(rs.Fields("EQ ID").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True
End With
.Shapes(1).TextFrame.TextRange.Characters.Font.Siz e = 50
End With
rs.MoveNext
Wend
End With
' Run the show.
ppPres.SlideShowSettings.Run

Exit Sub

err_cmdOLEPowerPoint:
MsgBox Err.Number & " " & Err.Description
End Sub