Problema con consulta SQL

[Myakire]

Si tienes una función de agregado como count, necesitas un group by con todos los campos simples del select, es decir, los que estan contenidos en A.*

sql = "Select A.*, COUNT(E.estado) as Cuentas
From Usuarios A INNER JOIN Actividades E ON a.IdUser = e.IdUser
Where A.IdUser = " & iduser " and e.Estado = '" & estado & "'
Group By ........"

Saludos