Membuat auto number otomatis

Kali ini saya membuat project ASKES saya secara otomatis yaitu jika INDUK di inputkan angka 1,2,3,... dst maka id secara otomatis akan terisi.
Berikut ini adalah kutipan gambar saat induk diisi :

Setelah diisi lalu tekan enter.Nahh kemudian akan muncul angka di ID secara otomatis , kita tidak perlu mengisi ID , langsung saja isi kelas terapi.Di bawah ini adalah Gambar beserta Source Codingnya :

Source Coding ini tulis pada form :

Private Sub AN()

Call koneksidb

rs.Open ("Select Count(id) as id from terapi where induk = '" & Text1.Text & "'"), con

rs.Requery

            Dim Urut As Integer, titik As String, id As String

            Dim Hitung As Long

                Urut = Text1.Text

                titik = "."

    With rs

        If rs.EOF Then

        Else

            Hitung = Right(rs.Fields!id, 1) + 1

            id = (Urut & titik & Hitung)

            Text2 = id

                Text3.SetFocus

        If Text1.Text = "0" Then

            Hitung = (rs.Fields!id + 1)

            id = (Hitung)

            Text2 = id

                Text3.SetFocus

        End If

        End If

    

    End With

End Sub

Setelah ini di tulis , lalu kita hanya tinggal memanggil di Module.