Cita: sql= "SELECT Max(ID) AS
Variable 
FROM Nombre Tabla;"
Set ObjRS = ObjDB.Execute(Sql)
'Estas serían las otras SQL que ingresan los datos en las otras tablas.
Sql = "Insert Into La otra tabla (ID,NOMBRE,EMAIL) values ('"
Sql = Sql&Variable&"','"
Sql = Sql&request.Form("nombre")&"','"
Sql = Sql&request.Form("email")&"');"
Set ObjRS = ObjDB.Execute(Sql)
Hola.. creo que en Variable no estas guardando el valor del
recordset.. solo lo estás usando como alias en tu consulta.
Te podría quedar así:
Cita: sql= "SELECT Max(ID) AS Variable FROM Nombre Tabla;"
Set ObjRS = ObjDB.Execute(Sql)
Variable = ObjRS("Variable") 
objRS.Close
'Estas serían las otras SQL que ingresan los datos en las otras tablas.
Sql = "Insert Into La otra tabla (ID,NOMBRE,EMAIL) values ('"
Sql = Sql&Variable&"','"
Sql = Sql&request.Form("nombre")&"','"
Sql = Sql&request.Form("email")&"');"
Set ObjRS = ObjDB.Execute(Sql)
Y recuerda cerrar tus recodsets y conexiones
Saludos y suerte