Conexion a base de datos c#

FORMA CONECTADA

Imports System.Data.SqlClient

Public Class Form1
Public conectar As New SqlConnection
Public sqlstr As String
Public odatareader As SqlDataReader
Public Subconectar_bd(ByVal estado As String)
If estado = "iniciar" Then
'conexiones ese stck10... es el q aparece en la base de datos de sql
conectar.ConnectionString = "Datasource= STCK103013EK; initial catalog=BIBLIOTECA; integrated security=true"
conectar.Open()

Else
conectar.Close()

End If
End Sub
'para llenarel combobox
Public Sub LlenarEditorial()
conectar_bd("iniciar")
'PARA SELECCIONAR LO DE EDITORIAL PERO TAMBIEN PUDE PONER EL CAMPO ESPECIFICO
'EN EL * PUEDE IR ELNOMBRE DEL CAMPO
sqlstr = "select Nombre_Ed from EDITORIAL"
Ejecutar(sqlstr, conectar, "conectar")
While odatareader.Read()Me.cbxeditorial.Items.Add(odatareader("Nombre_Ed"))
End While
conectar_bd("Cerrar")
End Sub

'se pasa cadena de consula(sql) cadena de conexion sqlconnection) y la cadena de lectura(dread)
'el terceropara saber q va a hacer
'si va a hacer una consulta o inserccion
'el con es conectar
'ires para comprobar en el caso que haya una inserccion en la Base de Datos
Public SubEjecutar(ByVal sql As String, ByVal conectar As SqlConnection, ByVal dread As String)
'oComando es como el encargado de ir a dejar la info entre el VB y el SQL
Dim oComando As NewSqlCommand(sql, conectar)
Dim ires As Integer
If dread = "conectar" Then
'excutiveReader para leer y retornar valores de lectura
odatareader = oComando.ExecuteReaderElse
'ExecuteNonQuery para no retornar nada
ires = oComando.ExecuteNonQuery()

End If
End Sub
Public Sub LlenarGrid(ByVal sql As String)...