Estas tratando de utilizar una Conexion Conn3 que no existe, revisa los cambios en negritas.
Código:
Conn4.Open "gp"
Set Tabla4=Server.CreateObject("ADODB.recordset")
Temp4 = "Select * from tbl_pn_hoja_ruta where id like"& acce
Tabla4.Open Temp4, Conn4
Salu2,