Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string

Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string
::
::
Waktu itu uda ya bikin kode otomatis, nah sekarang dimodif lagi nih... kode otomatisnya diambil dari tanggal sekrang dan tambahan string (misal belakangnya 0001).
Nah silakan dicoba yak :)
::
::

langsung aja cobain kodingnya yah, jangan lupa dipanggil di Form_Load

------------------------------------------------------------------------------------------------------------------------
Sub otomatis()
        cmd = New OleDbCommand("select ID_pemeriksaan from Pemeriksaan order by ID_pemeriksaan desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            tidp.Text = Format(Today, "yyMMdd") + "0001"
        Else
            If Microsoft.VisualBasic.Left(dr.Item("ID_pemeriksaan"), 6) = Format(Today, "yyMMdd") Then
                tidp.Text = dr.Item("ID_pemeriksaan") + 1
            Else
                tidp.Text = Format(Today, "yyMMdd") + "0001"
            End If
        End If
    End Sub
-----------------------------------------------------------------------------------------------------------------------