on error resume next rs.open "name1",conn1 if not err.number=0 then Err.Clear '清除该错误 ‘这里添加表不存在的处理 end if