Метод insert -задача разбора значения с параметрами

---

Привет,
Я переписываю этот пост, потому что застрял на этом коде.
Я пытаюсь преобразовать строку в целое число, а строку-в дату. В EXP_DATE смотрите 1/1/0001 12:00:00 AM в качестве значения по умолчанию,в то время как в ID_CUSTOMER смотрите 0, и мне нужно визуализировать значения текстового поля.
Проблема в том, что они находятся внутри текстовых полей, и во время отладки мне кажется, что он не сохраняет значения внутри текстовых полей.
Одно из двух текстовых полей генерируется автоматически, если я нажимаю кнопку внутри ретранслятора, которая отображает код cleinte и данные названия компании (это отображается внутри метки).


Это мой код.:

Что я уже пробовал:

Public Sub INSERT_EXP_DATE_TABLE()
    MyParm = cmd.Parameters.Add("@ID_CUSTOMER", SqlDbType.Int)
    MyParm.Value = CInt(txt_COD_CUSTOMER.Text)
    MyParm = cmd.Parameters.Add("@COMPANY_NAME", SqlDbType.NVarChar)
    MyParm.Value = lbl_COMPANY_NAME.Text
    MyParm = cmd.Parameters.Add("@EXP_DATE", SqlDbType.Date)
    MyParm.Value = CDate(txt_EXP_DATE.Text)
    Try 
        cmd.Connection = cn
        cmd.CommandText = "LST_INSERT_TABLE_01"
        cmd.CommandType = CommandType.StoredProcedure 
        cmd.Connection.Open()
        cmd.ExecuteNonQuery()
        MsgBox("Date expired conferm", vbInformation)
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        cn.Close()
    End Try
End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    If Not Me.IsPostBack Then
        Dim data As New Class_LST_READ_TABLE()
        data.READ_TABLE(Repeater1)
    End If
End Sub

Protected Sub btn_FIELD_TABLE_AUTOMATIC_Click(sender As Button, e As EventArgs)
    Me.txt_COD_CUSTOMER.Text = sender.Attributes("data-cod-cli")
    Me.lbl_COMPANY_NAME.Text = sender.Attributes("data-rag-soc")
    Me.txt_EXP_DATE.Text = sender.Attributes("data-exp-date")
End Sub

Protected Sub btn_SAVE_Click(sender As Object, e As EventArgs)
    For Each item As RepeaterItem In Repeater1.Items
        Dim txt_EXP_DATE As TextBox = item.FindControl("TXT_EXP_DATE")
        If txt_EXP_DATE IsNot "" Then
            Dim insert As New Class_LST_INSERT_TABLE
            insert.INSERT_EXP_DATE_TABLE()
            Exit For
        Else
            Dim update As New Class_LST_UPDATE_TABLE
            update.UPDATE_EXP_DATE_TABLE()
            Exit For
        End If
    Next
End Sub

---