Method insert -problem parsing value with parameters

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