Conexiones a una bd

CODIGO PARA GENERAR 2 TIPOS DE CONEXIONES A BD DE DATOS.
INSERTA UN NUEVO REGISTRO BD
ELIMINA UN NUEVO REGISTRO BD
MUESTRA LOS DATOS DE LA BD EN UN OBJETO DATAGRIDVIEW

Imports System.DataImports System.Data.SqlClient

Public Class Form1
Inherits System.Windows.Forms.Form

Dim da As SqlDataAdapter
Dim dt As New DataTable
Dim fila As Integer
Dim cvee, nombre AsString

'Otra forma de abrir la bd llamada conexion
Public Function CadenaConexion() As String
Dim csb As New SqlConnectionStringBuilder
csb.DataSource = "."csb.InitialCatalog = "conexion"
csb.IntegratedSecurity = True
Return csb.ConnectionString
End Function

'Función para insertar datos a la bd sql llamada conexion
PublicFunction Insertar(ByVal cvee As String, _
ByVal nombre As String) As Integer

Dim sCon As String = CadenaConexion()
Dim sel As String

sel ="INSERT INTO empleado (cvee, nombre) VALUES (@cvee, @Nombre)"

Using con As New SqlConnection(sCon)
Dim cmd As New SqlCommand(sel, con)cmd.Parameters.AddWithValue("@cvee", TextBox1.Text)
cmd.Parameters.AddWithValue("@nombre", TextBox2.Text)
con.Open()
Dim t As Integer = CInt(cmd.ExecuteScalar())
con.Close()Return t
End Using
End Function

Private Sub asignarDatos(ByVal dr As DataRow)
' Usar los datos que hay en los textbox
dr("cvee") = TextBox1.Textdr("nombre") = TextBox2.Text
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'Muestra o llena eldatagridview con los datos de la tabla empleado
Dim sCnn As String
sCnn = "Data Source = .; Initial Catalog = conexion; Integrated Security = True"
'sCnn = "data source = .;...