La cadena de entrada no tiene el formato correcto.No se puede almacenar <string> en la columna nombre_curso. El tipo esperado es Int32.

Question

Soy nuevo en VB y estuve haciendo algunos ejercicios y de la nada.. este error. En la base de datos puse id_curso,nombre_curso.... nombre curso tipo Text.

Imports System.Data
Imports System.Data.SqlClient
Public Class añadir_curso
    Private DtCurso As New escuelaDataSet.cursosDataTable
    Private TaCurso As New escuelaDataSetTableAdapters.cursosTableAdapter
    Dim x, y, z As String
    Private Sub CursosBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.CursosBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.EscuelaDataSet)

    End Sub

    Private Sub añadir_curso_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'EscuelaDataSet.cursos' Puede moverla o quitarla según sea necesario.
        Me.CursosTableAdapter.Fill(Me.EscuelaDataSet.cursos)
    End Sub

    Private Sub añadir_curso_box_TextChanged(sender As Object, e As EventArgs) Handles añadir_curso_box.TextChanged

    End Sub
    Private Sub añadir_curso_btn_Click(sender As Object, e As EventArgs) Handles añadir_curso_btn.Click
        x = añadir_curso_box.Text
        DtCurso = TaCurso.NoRepeatNombreCurso(x)
        If DtCurso.Count = 0 Then
            MsgBox("Curso Agregado Correctamente.")
            Me.CursosTableAdapter.Insert(x)
            Me.CursosTableAdapter.Fill(Me.EscuelaDataSet.cursos)
        Else
            MsgBox("Este Curso ya existe.")
        End If
    End Sub
    Private Sub CursosBindingNavigatorSaveItem_Click_1(sender As Object, e As EventArgs) Handles CursosBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.CursosBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.EscuelaDataSet)

    End Sub
End Class

Ayudenme porfas