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()
...
...