Problemas com commit do oracle

[mestre fyoda]

Eu sei que tem algo de errado na function pois não está inserindo no banco de dados !

o que está errado ?

Public Function ExecutaOracle(ByVal query As String) As Oracle.DataAccess.Client.OracleDataReader
        Dim ExecutarQuery As New Oracle.DataAccess.Client.OracleCommand(query, Conexao)
        Dim Ok As Oracle.DataAccess.Client.OracleTransaction = Conexao.BeginTransaction()
        MessageBox.Show(Left(query, 1))
        If Left(query, 1) <> "S" Then
            Return ExecutarQuery.ExecuteReader()
            Ok.Commit()
        Else
            Return ExecutarQuery.ExecuteReader()
        End If
    End Function

[mestre fyoda]

Resolvido o problema !