主题：[求助]自定义消息提醒窗口

已经这样修改了，还是没能成功：

Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = '会计'")
Dim bdnm As String = dr("部门“） & “.” &  dr("Name")
Dim msg As String = "+@|" & _UserName & "|" & r("借款ID") & "|" & "临时借款申请" & "|ys@"
QQClient.Send(bdnm,msg)

请再帮想一下办法！