conn.Execute("insert into Tb_Order(CT_Name,CT_Ideny,CT_Tel,JD_Name,P_Number,P_Time,Hit) VALUES('"&vCT_Name&"','"&vCT_Ideny&"','"&vCT_Tel&"','"&vJD_Name&"','"&vP_Number&"','#"&vP_Time&"#','0')")
Set Rss = conn.Execute("SELECT @@IDENTITY as id FROM Tb_Order")
newID = Rss("id")
conn.Execute("update Tb_Order set Look_Id='"&newID&"' where Order_Id='"&newID&"'")
conn.close