Visual Basic.NET - insertar valor de text box en tabla...URGENTE!!!

Imports System.Data

Imports System.Data.SqlClient

Imports System.Windows.Forms

Public Class OrdendeServicio

    Private cn As SqlConnection

    Private dsgrid As DataSet

    Private dagrid As SqlDataAdapter

    Private Sub OrdendeServicio_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'Es la cadena de conexion que me guarda la conexion con el gestor de base de datos

        cn = New SqlConnection

        cn.ConnectionString = "Server=192.168.XX.XX; Database=Mecano_Rimsa_Mina_PR;UID=Mecano_Report;PWD=**********;"

    End Sub

    Private Sub btnmostrar_Click(sender As System.Object, e As System.EventArgs) Handles btnmostrar.Click

        cn.Open()

        Dim consulta2 As String = "Select * From Mina_Orden_Servicio Where NCA='" & TextBox1.Text & "'"

        Dim cmd As New SqlCommand(consulta2, cn)

        Dim dr As SqlDataReader = cmd.ExecuteReader

        If dr.Read() Then

            Label2.Visible = True

        Else

            Label4.Visible = True

        End If

        cn.Close()

    End Sub

    Private Sub btnlimpiar_Click(sender As System.Object, e As System.EventArgs) Handles btnlimpiar.Click

        TextBox1.Clear()

        Label2.Visible = False

        Label4.Visible = False

        TextBox1.Focus()

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        If MsgBox("¿Desea Salir de la Aplicación?", vbQuestion + vbYesNo, "Pregunta") = vbYes Then

            Me.Close()

            End

        End If

    End Sub

End Class

Private Sub btnGuardar_Click(sender As System.Object, e As System.EventArgs) Handles btnGuardar.Click

        cn.Open()

        Dim consulta2 As String = "Insert Into Mina_Orden_Servicio (Texto, Fecha) Values ('" & TextBox1.Text & "', GetDate())"

        Dim cmd As New SqlCommand(consulta2, cn)

        Dim dr As SqlDataReader = cmd.ExecuteNonQuery

        cn.Close()

    End Sub