Как я могу автоматически создать инкрементный номер ссылки в VB.NET

---

Я разработал программу бронирования в VB.net и MS Access в качестве базы данных. Мне нужно, чтобы номер ссылки на бронирование автоматически увеличивался каждый раз, когда происходит бронирование, и должен начинаться со 100. С кодом, который я пробовал, он действительно увеличивается, когда я запускаю программу.Проблема в том, что он всегда начинается со 100 в любое время, когда я запускаю программу. См. код, который я использовал

Что я уже пробовал:

Option Strict On
Option Explicit On

Public Class Form1
    Dim i As Integer = 100
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        REFNOTextBox.Text = CStr(i)
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        i = i + 1
         REFNOTextBox.Text = CStr(i)
    End Sub
End Class

---