سلام
لزومی به درج این همه کد اضافه نیست ، شماره صفحه مربوطه رو بصورت page= Numberpage# در جلوی مسیر فایل Pdf اضافه کن!
بجای Numberpage شماره صفحه مورد نظر رو جایگزین کن!

Dim sPDFFile As String
sPDFFile = Application.CurrentProject.Path & "\z.pdF#‎‎‎page=4"
Me.WB_Document.ControlSource = "=""" & sPDFFile & """"