Leggere un singolo valore da una query in VB.Net

In certe occasioni è necessario leggere un singolo valore da una tabella o comunque ottenere un singolo valore calcolato da una query. Qui c'è il codice:

Imports System.Data.Oledb

Dim ConnString As String = "stringa di connessione"

' apertura connessione

Dim Conn As New Data.OleDb.OleDbConnection(ConnString)

Cn.Open()

' preparazione ed esecuzione della richiesta

Dim SQL As String = "SELECT Dato FROM Tabella WHERE ID = 'aaaa';"

Dim comando As New Data.OleDb.OleDbCommand(Sql, Conn)

Dim ID As Integer = comando.ExecuteScalar()

' chiusura connessione

Cn.Close()