Conexion a sql desde vb.net con .ini

que funcion cumple el dispose en este codigo de variables

Lo necesito en visual basic.net

yo lo hago así:
primero tengo una sub que busca el archivo ini y lee su contendido que viene en 5 registros:

-----------------------------------------------------------------------------
Friend Sub BuscarArchivoConfiguracion()
Dim Encontro As Boolean = False

' obtiene el path relativo de la aplicación.
DireccionRelativa = System.IO.Directory.GetCurrentDirectory()
DireccionCompleta = DireccionRelativa + "\MiArchivo.ini"

Dim objReader As New StreamReader(DireccionCompleta)
Dim sLine As String = ""
Dim arrText As New ArrayList()

Do
sLine = objReader.ReadLine()
If Not sLine Is Nothing Then
arrText.Add(sLine)
End If
Loop Until sLine Is Nothing
objReader.Close()

BaseDatos = arrText(2)
Dominio = arrText(3)
Servidor = arrText(4)
Usuario = arrText(5)
Passwrd=arrText(6)

End Sub
-----------------------------------------------------------------------------------------
Luego hago la conexión a la base de datos utilizando los valores rescatados desde el archivo ini de la siguiente forma


Friend Sub ConectarBaseDatos ()

Dim CUENTA As Integer

Dim miconexion As SqlConnection
miconexion = New SqlConnection

Dim MiComandoSql As SqlCommand


miconexion = New SqlConnection("data source=" & Servidor & ";" & _
"initial catalog=" & BaseDatos & ";" & _
"User Id=" & Usuario & "; password=" & Passwrd & ";")




MiComandoSql = New SqlCommand("SELECT TOP 1 CAMPO1" & _
" FROM MITABLA where USUARIO1 ='" & Usuario & "' AND CAMPO2 ='" & PASSWRD & "'", miconexion)


Try

miconexion.Open()
CUENTA = MiComandoSql.ExecuteScalar()

Catch excepcion As Exception

MessageBox.Show("Error en la conexión: " + excepcion.ToString())

Finally
miconexion.Close()
End Try

---------------------------------------------------------------------------------------------------------------

Espero que esto se sirva de ayuda, tal cual como a mi me ha ayudado mucho este sitio web.

Saludos

Pedro

pet quisiera que me ayudaras en problema que tengo con una restricion en el momento de hace la conexion pero es con visual.net 2008 y no encuentro los comandos correcto es algo parecido a lo que tu tienes lo que quiero hacer pero con comandos de visual.net 2008
me podrias ayudar
gracias¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡

En C#:

using System;
using Microsoft.Practices.EnterpriseLibrary.Data;
using System.Data.Common;
using System.Data;
namespace IGESCC.DATAACCESS.ExploraX_3Play
{
public static DataSet DevUsuario(ref string NO_USUARI, ref string NO_PASSWD)
{
DataSet resultsDataSet = null;
try
{
Database db = DatabaseFactory.CreateDatabase("DBINDICADOR");
string sqlCommand = "DevUsuario";
DbCommand Command = db.GetStoredProcCommand(sqlCommand, NO_USUARI, NO_PASSWD);
resultsDataSet = db.ExecuteDataSet(Command);
}
catch(Exception ex)
{

}
return resultsDataSet;
}
}

para ingresar un registro:

Public Function InsPersona(ByVal nombre As String, ByVal edad As Integer, ByVal tipo As Integer) As Boolean
Dim result As Boolean = False
Dim sqlCommand As String = "SP_INSPERSONA"
Dim command As DbCommand = dbo.GetStoredProcCommand(sqlCommand)
dbo.AddInParameter(command, "NOMBRE", DbType.String, nombre)
dbo.AddInParameter(command, "EDAD", DbType.Int64, edad)
dbo.AddInParameter(command, "TIPO", DbType.Int64, tipo)

Using connection As DbConnection = dbo.CreateConnection
connection.Open()
Dim transaction As DbTransaction = connection.BeginTransaction
Try
dbo.ExecuteDataSet(command, transaction)
transaction.Commit()
result = True
Catch ex As Exception
transaction.Rollback()
Console.WriteLine(ex.Message)
End Try
Return result
connection.Close()
End Using
End Function