Consumo de memória direto

[marlonwg 0]

Boa Pessoal como vão?

Estou com um problema de consumo de memoria em uma aplicaçao que estou a desenvolver nao sei o porque mas esta acontecendo vou passar um codigo base de como algum de meus forms Funcionam

Imports System.Data.OleDb
Imports Classes ' Importando classes

Public Class Cad_banco

      Dim cx As New Conexao
      Dim sql As String = ""

   Private Sub Cad_banco_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dispose()
    End Sub
  Public Sub Cad_banco_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      MostrarTabelaBanco()
        MostrarBancos()
        FormatarColunas()
        contar()

    End Sub

  Sub MostrarTabelaBanco()
        Dim sql As String = ""
        sql += " SELECT Codigo,Banco From Bancos "
        sql += " Order by Codigo "
        cx.Conectar()
        Dim DaBancos As OleDbDataAdapter
        Dim ds As New DataSet
        DaBancos = New OleDbDataAdapter(sql, cx.C)
        ds = New DataSet
        DaBancos.Fill(ds, ("Bancos"))
        DGVBancos.DataSource = ds.Tables("Bancos")
        cx.Desconectar()
    End Sub

Sub MostrarBancos()
        Dim Dabancos As OleDbDataAdapter
        Dim ds As New DataSet
        Dim sql As String = ""
        sql += " Select Codigo,Banco "
        sql += " FROM Bancos "

        cx.Conectar()

        Dabancos = New OleDbDataAdapter(sql, cx.C)
        ds = New DataSet
        Dabancos.Fill(ds, ("Bancos"))
        CbBanco.ValueMember = ("Banco")
        CbBanco.DisplayMember = ("Banco")
        CbBanco.DataSource = ds.Tables("Bancos")
        cx.Desconectar()

    End Sub

  Private Sub BtnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIncluir.Click
    Try
            If TxtCodigoBanco.Text = "" Or TxtDescricao.Text = "" Then
                Throw New Exception("Nao pode harver campos em branco!")
            Else
               VerificaCodigo(Codigo)
                Dim sql As String = ""
                sql += " Insert into Bancos(Codigo,Banco) "
                sql += " Values(" + TxtCodigo.Text + ",'" + TxtDescricao.Text + "') "
                cx.Conectar()
                Dim cd As New OleDbCommand(sql, cx.C)
                cd.ExecuteNonQuery()
               Throw New Exception("Banco Incluido com sucesso!!" + TxtDescricao.Text.ToString)
            End If
        Catch ex As Exception
            LblAguardar.Text = ex.Message
        Finally
            MostrarTabelaBanco()
            TxtCodigo.Text = ""
            TxtDescricao.Text = ""
            cx.Desconectar()
        End Try

    End Sub

    End Class

Bom Pessoal no codigo acima tanbem tenho para alterar e excluir e mas alguma consulta mas e so repetiçoes sabem como funciona mas Eis ai o problema a aplicaçao funciona 100%

so o consumo de memoria ele sobe conforme abre-se e fecha o form mesmo utilizando o DISPOSE no fechamento do FORM_Closing 

Gostaria de saber se tem alguma forma de mudar este cenario da memoria um ex: o consumo esta em 92.500 quando abro o form vai para 92,650 e vou utilizando ele vai aumentando

quando fecho o form ele continua no mesmo valor so que dai ele usa o utlimo que estava 92,650 e vai para 92,780 (E somente exemplos pessoal) Oque fazer sobre o consumo e como baixa-lo?