SQL INSERT Statement-VB.net

---

Я не могу найти ошибку в этом коде
Я получаю это сообщение всякий раз, когда пытаюсь нажать на кнопку

"в инструкции insert содержится больше столбцов, чем значений, указанных в предложении values"

NOTE: button1 is ADD button

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlConnection
        Dim cmd As New SqlCommand
 
        Try
            con.ConnectionString = "Data Source=TYNE-PC;Initial Catalog=trial;Integrated Security=True"
            con.Open()
            cmd.Connection = con
    
            cmd = New SqlCommand("insert into records ([emp_id], [emp_name], [pos], [dept_name], [salary], [date]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "," & TextBox5.Text & "','" & TextBox6.Text & "','" & DateTimePicker1.Value.Date & "')", con)
 
            cmd.ExecuteNonQuery()
 
        Catch ex As Exception
 
            MessageBox.Show("Invalid" & ex.Message)
        Finally
            con.Close()
        End Try
        Me.RecordsTableAdapter.Fill(Me.TrialDataSet1.records)
    End Sub

---