kode otomatis vbnet

 Public Sub Nomer_SK()
        Try
            conn.Open()
            sstr = "Select * from tblsk where no_sk in (select max(no_sk) from tblsk) "
            cmd = New MySqlCommand(sstr, conn)
            Dim hitung As String
            Dim urutan As String

            dr = cmd.ExecuteReader
            dr.Read()
            If Not dr.HasRows Then
                urutan = "SK/" & Format(Now, "yyMMdd") & "/" & "001" ' jika data belum ada,contohnya (SK/201122/001)
            Else
                urutan = Microsoft.VisualBasic.Right(dr.GetString(0), 3)
                If Microsoft.VisualBasic.Left(dr.GetString(0), 10) <> "SK/" & Format(Now, "yyMMdd") & "/" Then ' jika sdh berganti hari menjadi (SK/201123/001)
                    urutan = "SK/" & Format(Now, "yyMMdd") & "/" & "001"
                Else
                    hitung = Microsoft.VisualBasic.Right(dr.GetString(0), 3) + 1 ' disini "001" + 1
                    urutan = "SK/" & Format(Now, "yyMMdd") & "/" & Microsoft.VisualBasic.Right("00" & hitung, 3)
                End If
            End If
            conn.Close()
            txtsk.Text = urutan

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub