ExecuteScalar è un metodo dell'oggetto Command che permette il massimo delle prestazioni quando attendiamo da una query solo un dato.
Infatti esso ritornerà come valore solo la prima colonna del primo record interessato dalla query:

dim str_conn="Provider=..."
Dim conn as new OleDbConnection(str_conn)
Dim command as new OleDbCommand("select count(*) from tabella where id_articolo>1000", conn)

conn.Open()
Dim numero as integer = CType(command.ExecuteScalar(),Integer)
conn.Close()

In questo esempio, la query ritorna il numero di record in cui il campo "id_articolo" abbia un valore maggiore di 1000.