uardar registros desde TextBox a base de datos

[fezaca]

Soy novato en programación y tengo un problema para guardar los datos.

Tengo un único formulario en el cual tengo un DataGrid, cuatro TextBox y tres botones, "GUARDAR" "MODIFICAR" "ELIMINAR", tengo que poner datos en los TextBox y con el botón GUARDAR tendria que guardarse en la base de datos y al mismo tiempo verse en el DataGrid.
El botón MODIFICAR lo tengo para en caso de equivocarme al introducir datos poderlo modificar, y al pulsar dos veces sobre el registro se vean en los TextBox y despues de modificado reescribir esos datos.
El botón ELIMINAR es para que cuando un registro no tiene utilidad borrarlo de la base de datos..

Los codigos que tengo son los que siguen mas abajo pero solo me los deja en el DataGrid y cuando reinicio la aplicación no aparecen.

Por favor alguien me puede ayudar.   

Código [Seleccionar] Expandir

Imports System.Data.SqlClient
Public Class Form5
    Dim row(4) As String
    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Database1DataSet1.GOTICO' Puede moverla o quitarla según sea necesario.
        Me.GOTICOTableAdapter.Fill(Me.Database1DataSet1.GOTICO)
        Button1.Text = "Salir"
        Button2.Text = "Guardar"
        Button3.Text = "Modificar"
        Button4.Text = "Eliminar"
        DataGridView1.ColumnCount = 4
        DataGridView1.Columns(0).Name = "Fabricante"
        DataGridView1.Columns(1).Name = "Modelo"
        DataGridView1.Columns(2).Name = "Denominacion del Recambio"
        DataGridView1.Columns(3).Name = "Referencia"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Form1.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GOTICOBindingSource.AddNew()
        GOTICOBindingSource.Current("fabricante") = TextBox4.Text
        GOTICOBindingSource.Current("modelo") = TextBox3.Text
        GOTICOBindingSource.Current("denominación del recambio") = TextBox2.Text
        GOTICOBindingSource.Current("referencia") = TextBox1.Text
        TextBox4.Text = ""
        TextBox3.Text = ""
        TextBox2.Text = ""
        TextBox1.Text = ""
        Me.Validate()
        GOTICOBindingSource.EndEdit()
        GOTICOTableAdapter.Update(Database1DataSet1.GOTICO)
    End Sub

    Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

    End Sub