please what's the cause of this error in visual basic - exception

Question

System.Data.SqlClient.SqlException: 'An explicit value for the identity column in table 'table1' can only be specified when a column list is used and IDENTITY_INSERT is ON.'
when i run the code it displays the error below
this is what pops up
**this is my code**
Imports System.Data.SqlClient
Public Class ARRIVAL
Dim con As New SqlConnection
Dim cmd As New SqlCommand
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\PRINCE\Documents\real.mdf;Integrated Security=True;Connect Timeout=30"
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
disp_data()
End Sub
Private Sub insert_Click(sender As Object, e As EventArgs) Handles insert.Click
cmd = con.CreateCommand()
cmd.CommandType = CommandType.Text
cmd.CommandText = "insert into table1 values('" & DateTimePicker1.Text & "','" & shiftsupervisorcb.SelectedItem.ToString() & "','" & teammemberscb.SelectedItem.ToString() & "','" & airlinecb.SelectedItem.ToString() & "','" & DateTimePicker2.Text & "','" & conternocb.SelectedItem.ToString() & "','" + TextBox2.Text + "','" + TextBox3.Text + "','" & linemanagercb.SelectedItem.ToString() & "','" & okimechcb.SelectedItem.ToString & "','" & okiribboncb.SelectedItem.ToString() & "','" + ocrcb.SelectedItem.ToString() & "','" & mousecb.SelectedItem.ToString() & "' ,'" & okiprinhcb.SelectedItem.ToString() & "','" & atbcb.SelectedItem.ToString() & "','" & btpcb.SelectedItem.ToString() & "','" & bgrcb.SelectedItem.ToString() & "')"
cmd.ExecuteNonQuery()
disp_data()
MessageBox.Show("record inserted successfully")
End Sub
Public Sub disp_data()
cmd = con.CreateCommand()
cmd.CommandType = CommandType.Text
cmd.CommandText = "select * from table1"
cmd.ExecuteNonQuery()
Dim dt As New DataTable()
Dim da As New SqlDataAdapter(cmd)
da.Fill(dt)
DataGridView1.DataSource = dt
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Me.Hide()
Dim back = New BORDING
back.Show()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
End Sub
Private Sub bgrcb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles bgrcb.SelectedIndexChanged
End Sub
End Class