Vuoi solo contare quanti record restituiranno quelle sei query o serve anche il loro contenuto?
	codice:
	Dim conn as OleDbConnection = new
OleDbConnection(...)
conn.Open()
dim command as new  OleDbCommand
command=new OleDbCommand("Select * from miaTabella where categoria=1",conn)
risultato1=command.ExecuteScalar()
command=new OleDbCommand("Select * from miaTabella where categoria=2",conn)
risultato2=command.ExecuteScalar()
command=new OleDbCommand("Select * from miaTabella where categoria=3",conn)
risultato3=command.ExecuteScalar()
...
conn.Close()
 
Ma, ancora meglio, sempre se è valido nel tuo caso, fai un'unica query:
	codice:
	select categoria,count(*) as quanti from miaTabella group by categoria
 
Che restituisce l'elenco delle categorie con il numero di record per ognuno di essi.
Ciao  