Access2016 構文エラー
お世話になります。
Access2003から2016へDB変更（MDB→ACCDB）をしたのですが、構文エラーになります。
2003の時には、エラーなど出ませんでしたが、エラー修正箇所を見ても、エラー該当が無いかと考えております。
どなたか、情報下さると有難く思います。
Private Sub ページヘッダー_Print(Cancel As Integer, PrintCount As Integer)
Me.Section(acPageHeader).Visible = (Me!txtCnt <> 1)
On Error GoTo err_shori
'頁のカウント
If preNo <> 得意先CD Or intP = Pkei Then intP = 0
intP = intP + 1
txt頁 = "P. " & intP '明細30行で１頁
Dim rst As Recordset, strSQL As String
If intP < 2 Then
txt前回請求額.Visible = True
txt入金額.Visible = True
txt繰越金額.Visible = True
txt税抜.Visible = True
txt消費税.Visible = True
txt税込.Visible = True
txt今回請求額.Visible = True
'請求金額等の取得 Q請求金額一覧より
Set rst = db.OpenRecordset("Q請求金額一覧")
rst.FindFirst "得意先CD='" & 得意先CD & _
"' and 締切日 = #" & Format(締切日, "yyyy/mm/dd") & "#"
If Cur_ing 得意先CD & _
rst("最大化表示",m)
どうも、「Private Sub ページヘッダー_Print(Cancel As Integer, PrintCount As Integer) 」と、最後の 「 If Cur_ing 得意先CD & _」 「 rst("最大化表示",m)」にて、構文エラーになるようです。
