prova a farti un metodo, come da esempio:
codice:
'-------------------------------------------------------------------------------------------------
'Restituisce il risultato di una funzione di aggregazione di una istruzione sql
'Esegue la query e restituisce la prima colonna della prima riga nel gruppo
'di risultati restituito dalla query.
'Le colonne o le righe aggiuntive vengono ignorate
'
'restituisce Nothing se non trova valore
'restituisce System.DBNull.Value se trova valore null
'restituisce object se trova valore
'-------------------------------------------------------------------------------------------------
Public Function RisultatoAggregazioneSQL(ByVal StringaConnessione As String, ByVal stringaSQL As String) As Object
Dim Connessione As OleDbConnection = Nothing
Dim Comando As OleDbCommand
Try
Connessione = New OleDbConnection(StringaConnessione)
Connessione.Open()
Comando = New OleDbCommand(stringaSQL, Connessione)
RisultatoAggregazioneSQL = Comando.ExecuteScalar()
Catch er As Exception
Throw
Finally
If Connessione IsNot Nothing Then Connessione.Close()
End Try
End Function