Dim Filter As String = "身份证号码 = " & e.Table.Current("身份证号码")
改成
Dim Filter As String = "身份证号码 = '" & e.Table.Current("身份证号码") & "'"