Problems Automating Access With Powerpoint

Ive been following the code on the Microsoft support site for automatically creating a PowerPoint presentation using data from Access.

The sample code takes one field from the sample table and displays this on the PowerPoint slide - it then assumes the user can apply this knowledge and add more fields to the slides themselves. I have tried to do this but am getting nowhere.

Please can somebody advise how I add additional fields to the slides via the code. I am afraid Im not very confident with VBA so am stumbling a bit blindly here. Here is a sample of the code that I think I need to add to:

With ppPres
While Not rs.EOF
With .Slides.Add(rs.AbsolutePosition + 1, ppLayoutTitle)
.Shapes(1).TextFrame.TextRange.Text = "Hi! Page " & rs.AbsolutePosition + 1
.SlideShowTransition.EntryEffect = ppEffectFade
With .Shapes(2).TextFrame.TextRange
.Text = CStr(rs.Fields("LastName").Value)
.Characters.Font.Color.RGB = RGB(255, 0, 255)
.Characters.Font.Shadow = True

I tried to replicate the last bit here by adding Shapes(3) and the new field name, but I must be doing something wrong because Access throws up an error message.

If anybody can give me some pointers I would be grateful. Also, if anyone can advise how I can determine the position of the fields on the slide I would be grateful (they seem to be centering at the moment).

The link for the full code is here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dno2k3ta/html/officeaccess2powerpoint.asp

Many thanks,
Adam.