dr = DataTables("患者").Find("[患者姓名] = '" & hzxm & "' ")
改成
If dr is Nothing then dr = DataTables("患者信息").AddNew()