Slå ihop dessa count

SQL = "select count(*) as antal from mess where username = '" & user &"' and read = false"
Set mess = databas.Execute(SQL)
  messantal = mess("antal")
mess.close
set mess = nothing

SQL = "select count(*) as antal from gb where mott = '" & user &"' and last = false"
Set mess2 = databas.Execute(SQL)
  gbantal = mess2("antal")
mess2.close
set mess2 = nothing

SQL = "select count(*) as antal from kompisar where kompis = '" & user &"' and besvarad = false"
Set mess3 = databas.Execute(SQL)
  nyakompisar = mess3("antal")
mess3.close
set mess3 = nothing

dessa SQL-satser är 2 år gamla ungefär så :e jag skulle gärna vilja ha (något liknande för alla kan inte heta antal) dessa satser i en.. om det går

Om du kan få det som en post beror på vilken DBMS du har (det går inte i Mysql).

Du kan slå ihop det så att det blir en fråga men att du får flera poster

SQL = "select 1,count(*) as antal from mess where username = '" & user &"' and read = false union all " &  _
"select 2,count(*) as antal from gb where mott = '" & user &"' and last = false union all " & _
"select 3,count(*) as antal from kompisar where kompis = '" & user &"' and besvarad = false order by 1"
Set mess = databas.Execute(SQL)

jag använder Access.. ska testa din fina kod.. fast alla kan ju inte heta antal :e