..........
dr = DataTables("家族史").Find("姓名 = '" & r("姓名") & "' And 性别 = '" & r("性别") & "' And 出生日期 = #" & r("出生日期") & "# And ID号 = " & r("ID号"))..........