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).