Visual Basic

<br />
using (ObjectType myObject = new ObjectType())<br />
{<br />
    myObject.DoSomething();<br />
}<br />

<br />
ObjectType myObject = new ObjectType();<br />
myObject.DoSomething();<br />
myObject.Dispose();<br />

<br />
GC.Collect();<br />

Imports System.Data
Imports System.Data.OleDb

'Connection String for the Access Database
   Dim strCon As String = "Data Source=C:\Valuation Roll\ValuationRoll_CD.mdb; Provider=Microsoft.Jet.OLEDB.4.0;persist security info=False;User ID=Admin"

   Dim con As  new OleDbConnection(strCon) 'Declaring a Connection Object

   Dim cmdselect As new OleDbCommand 'Declaring a Command object

   Dim da As new OleDbDataAdapter 'Declaring an Adapter

       Dim dsdata As New DataSet

       cmdselect.CommandText = "SELECT * FROM mytable"

       cmdselect.CommandTimeout = 0

       cmdselect.CommandType = CommandType.Text

       cmdselect.Connection = con

       da.SelectCommand = cmdselect

       Try

           con.Open()

           dsdata.Clear()

           da.Fill(dsdata, "mytable")

           con.Close()

       Catch

           Throw

       End Try

Try


           datagrid1.DataSource = ds

           datagrid1.DataMember = "mytable"


       Catch ex As Exception
           MessageBox.Show(ex.Message)


       End Try