Having problems using a simple increment of ID column

Dim i As Integer = 0
      I += 1


      Try
          Dim sqlcon As New SqlConnection("mysqlstring")
          Dim sqladapt = New SqlDataAdapter("Select * from [Table]", sqlcon)

          sqlcon.Open()
          Dim cmd As SqlClient.SqlCommand
          Dim sql As String = "insert into [Table] values(@ID,@Question,@Answers,@Howtowork,@Chapter)"
          cmd = New SqlClient.SqlCommand(sql, sqlcon)

          ' Make sure that all tables have the same type of information that can be entered, if not you will recieve an error.
          cmd.Parameters.AddWithValue("@ID", DataGridView1.Rows.Count + I)
          cmd.Parameters.AddWithValue("@Question", TextBox2.Text)
          cmd.Parameters.AddWithValue("@Answers", TextBox3.Text)
          cmd.Parameters.AddWithValue("@Howtowork", TextBox4.Text)
          cmd.Parameters.AddWithValue("@Chapter", TextBox5.Text)

          cmd.ExecuteNonQuery()
          sqlcon.Close()

          MessageBox.Show("New Record Added")

      Catch ex As Exception


      End Try