Coding No slip otomatis

Selamat malam,mumpung gak ada kerjaan nih saya mau posting cara membuat no slip otomatis..
1. siapkan sebuah button
2. siapkan sebuah textbox=txtnoslip
dan pastinya saudara telah membuat sebuah database yang berisikan sebuah table
database : terserah
table : gaji
field : gajislip char(10)
pada button masukan koding berikut:::
mudah kan !!!!!
oyaaa disini formatnya pake tanggal yg diset otomatis oleh windows



Sub buatslip()
        Dim kode, kodebaru, tgl As String
        Dim no As Integer
        tgl = Format(Now, "ddMMyy")
        kon.Close()
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "SELECT gajislip FROM gaji ORDER BY gajislip DESC LIMIT 1"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            kode = cek.Item("gajislip")
            no = Val(Microsoft.VisualBasic.Mid(kode, 3, 4))
            no = no + 1
            kodebaru = "S-" + Format(no, "0000") + tgl
            txtnoslip.Text = kodebaru
        Else
            txtnoslip.Text = "S-0001" + tgl
        End If
        cek.Close()
        kon.Close()

    End Sub