Visual Basic.NET - Cadena de Conexion

Imports System.Data.SqlClient

Public Conexion As String = "Data Source=.\SQLEXPRESS;Initial Catalog=TuBase;Integrated Security=True"

 Public MiConexion As New SqlConnection(Conexion)

    Public Rs As SqlDataReader

    Public MiDataAdapter As New SqlDataAdapter

    Public Com, Insert, Delete, Recuperar As New SqlCommand

    Public SQL As String

SQL = "select CodCat,Descripcion from Categoria where Baja=0 order by 2"

        MiConexion.Open()

        Com = New SqlCommand(SQL, MiConexion)

        Rs = Com.ExecuteReader()

...

...