Salve a tutti.

Nel mio form ho una serie di textbox che devo avvalorare con delle select eseguite su una tabella con varie condizioni where

Non essendo pratico (vedi firma) ho cercato su internet ed ho trovato il codice necessario per effettuare UN count

codice:
        Dim CN As New OleDb.OleDbConnection(stringaconn)
        CN.Open()
        Dim cmd As New OleDb.OleDbCommand("Select COUNT(*) FROM dati", CN)
        ttptot.Text = cmd.ExecuteScalar()
        cmd = Nothing
        CN.Close()
ma dovrei fare anche un count (*) where campo1 = '30'
e poi un in cui campo1 = '31'
e poi in cui campo1 = '50'
ecc ecc (sono 10)
e poi altri dieci invece di COUNT con SUM

ma se provo a ripetere il codice, ovviamente mi da errore dicendomi

codice:
Errore	2	La variabile locale 'CN' è già dichiarata nel blocco corrente.
Potreste suggerirmi come fare risolvere ?

Grazie