主题：popmessage

Dim dt4 As Date = Date.Today.AddDays(30)

Dim dtdq As Date = Date.Today

Dim dr38 As String = DataTables("应急预案台账").GetComboListString("企业名称", "下次修订日期 >= #" & dtdq & "# and 下次修订日期 <= #" & dt4 & "#")

Dim dr39 As String = DataTables("应急预案台账").GetComboListString("企业名称", "下次修订日期 < #" & dtdq & "#")

If dr39 > "" Then

    popmessage(dr39 & ":" & vbcrlf & "    安全应急预案已过期,请及时办理!","警告",PopIconEnum.alert,8)

End If

If dr38 > "" Then

    popmessage(dr38 & ":" & vbcrlf & "    安全应急预案即将到期,请及时办理!","提示",PopIconEnum.Infomation,8)

End If

想让提示框显示的内容带上到期的日期（即下次修订日期），如：“安全应急预案已于**年**月**日过期,请及时办理!”

怎么改一下代码？谢谢