nO PUEDO CONTAR REGISTROS CUANDO WHERE TIENE LIKE

[sesteb]

Prueba en cambiar los * por & de tal manera:
[...] WHERE (((TLR_INEM.EMPRESA) Like '&A&'))

si no te funciona tendras que modificar comillas simples por dobles.
Te adjunto ejemplo.

te paso un ejemplo mio que funciona ok

dim conexionBd,rsusua,sqlusua,contador,clave,titol
clave = Request.Form("clave")
Set ConexionBd=Server.CreateObject("ADODB.Connection")
SQLusua="SELECT id,autor,titulo,album,letra FROM songs WHERE letra LIKE '%"&clave&"%'"
conexionBd.Open"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("prosej.mdb"),3,1

set RSusua=ConexionBd.execute(SQLusua)


YA diras si te funciona.
Saludos