Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组Dim r As Row = Tables("表A").AddNew
改成
Dim r As DataRow = DataTables("表A").Find("身份证号码 = '" & pars(5) & "'")
If r Is Nothing Then r = DataTables("表A").AddNew