ti ho leggermente modificato la tua funzione
codice:
Public Function ExecSQuery(ByVal Query As String) As Object
Dim _cnn As New System.Data.OleDb.OleDbConnection(CVIConnectionString())
Dim _cmd As New System.Data.OleDb.OleDbCommand(Query, _cnn)
Try
_cnn.Open()
Return _cmd.ExecuteScalar()
Finally
_cnn.Close()
End Try
End Function
per usare il risultato di una funzione es.
tot=ExecSQuery(Query2)
devi comunque stare attenta ai tipi e fare in modo che la variabile tot sia dello stesso tipo del valore che ti ritorna dalla funzione. Altrimenti verra' tentata una conversione che se non riuscira' ti sollevera' una eccezione (invalidcastexception).