Option Compare Database
Option Explicit

Sub PDFpagecount()

Dim objPDF As AcroPDDoc, FN As String
Dim objDoc As AcroApp
Dim rs As Recordset, doc As String
Set rs = CurrentDb.OpenRecordset("PDF")
Set objDoc = "iprosystemadmin80.pdf"

rs!Field2 = objPDF.GetNumPages


End Sub