Dim cmd As new SQLCommand

    cmd.Co nne ction Name = "综合本地数据"

    cmd.CommandText = "UP DATE 告知内容 S ET 信息时间=?,注意事项=?,是否告知=?,姓名=?,信息内容=?,发送对象=?,信息类别=?,发送人员=?,发送平台=?,拟发送时间=?,序号=?,身份属性=?,关注领域=?,告知内容=?,操作单位=?,手机号码=?,电子邮件=?,状态码=?,信息编号=?,操作者=? "

    cmd.Parameters.Add("@信息时间",Date.Now)

    cmd.Parameters.Add("@注意事项","")

    cmd.Parameters.Add("@是否告知", "否")

    cmd.Parameters.Add("@姓名",Vals(i)(0))

    cmd.Parameters.Add("@信息内容",br("信息内容"))

    cmd.Parameters.Add("@发送对象",br("发送对象"))

    cmd.Parameters.Add("@信息类别", br("信息类别"))

    cmd.Parameters.Add("@发送人员",br("发送人员"))

    cmd.Parameters.Add("@发送平台",br("发送平台"))

    cmd.Parameters.Add("@拟发送时间",br("拟发送时间"))

    cmd.Parameters.Add("@序号",br("_identify"))

    cmd.Parameters.Add("@身份属性",Vals(i)(1))

    cmd.Parameters.Add("@关注领域",br("关注领域"))

    cmd.Parameters.Add("@告知内容",lst1)

    cmd.Parameters.Add("@操作单位",_usergroup)

    cmd.Parameters.Add("@手机号码",Vals(i)(2))

    cmd.Parameters.Add("@电子邮件","")

    cmd.Parameters.Add("@状态码","")

    cmd.Parameters.Add("@信息编号",br("信息编号"))

    cmd.Parameters.Add("@操作者",br("操作者"))

    cmd.ExecuteNonQuery  

……