Membuat Nomor Otomatis (Vb.Net 2008)

    Private Sub Otomatis()

        Cmd = New OdbcCommand("select max(no_trans) as no from rental", Conn)

        Rd = Cmd.ExecuteReader

        If Rd.Read = False Then

            txt_no_trans.Text = "ST-0001"

        Else

            txt_no_trans.Text = Rd("no").ToString

            txt_no_trans.Text = Microsoft.VisualBasic.Right(txt_no_trans.Text, 4)

            If Val(txt_no_trans.Text) < 10 Then

                txt_no_trans.Text = "ST-000" & (Val(txt_no_trans.Text) + 1)

            ElseIf Val(txt_no_trans.Text) >= 10 And Val(txt_no_trans.Text) < 100 Then

                txt_no_trans.Text = "ST-00" & (Val(txt_no_trans.Text) + 1)

            ElseIf txt_no_trans.Text > 99 Then

                txt_no_trans.Text = "ST-0" & (Val(txt_no_trans.Text) + 1)

            ElseIf txt_no_trans.Text > 999 Then

                txt_no_trans.Text = "ST-" & (Val(txt_no_trans.Text) + 1)

            End If

        End If