> ole_Access.Reports!(Report_Name)![strNum].Caption = "文字を表示" & CStr(intCnt) ole_Access.Reports!(Report_Name)!(strNum).Caption = "文字を表示" & CStr(intCnt)