主题：提示：不是合法的 OleAut 日期 求解！

修改代码

                For Each dr23 As DataRow In drs1
                    Dim dr22 As DataRow = DataTables("告知内容").Find("部门受案号 = '" & r1("部门受案号") & "'  and 姓名 ='" & dr23("姓名") & "'and 受理日期 = #" & r1("受理日期") & "# ")
                    If  r1("是否关联")="是" Then
                        If dr22 Is Nothing Then '如果不存在同编号的订单
                            msgbox(333)
                            Dim r3 As Row =tb2.Table.AddNew
                            r3("部门受案号")=r1("部门受案号")
                            r3("嫌疑人姓名")=r1("嫌疑人姓名")
                            r3("是否告知")="否"
                            r3("事项理由")="请注意"
                            r3("案件状态")="审理中"
                            r3("人员类型")="案件关联人"
                            r3("涉嫌案由")=r1("涉嫌案由")
                            r3("案件类别")=r1("案件类别")
                            r3("受理日期")= r1("受理日期")
                            r3("审结日期")= r1("审结日期")

r3("到期日期") = Nothing
                            r3("姓名")=dr23("姓名")
                            r3("告知方式_邮件")="否"
                            r3("告知方式_短信")="否"
                            r3("告知方式_QQ")="否"
                            r3("告知方式_微信")="否"
                            r3("承办人")=r1("承办人")
                            r3("案件状态")= "审理中"
                            r3("序号")= r1("_identify")
                            r3.save
                        End If
                    End If
                Next