Rastgele dağıtım ile ilgili yardım istiyorum

Merhaba arkadaşlar! Vb6 ile ders dağıtım programı yapmaya çalışıyorum. Uzun süredir araştırıyorum. Anladığım kadarıyla randomize kullanımı gerekiyor. Genellikle rasgele sayı üretimi için kullanım örnekleri verilmiş. Bu örnekleri baya kurcaladım ama bir türlü kendi amacıma uygun hale dönüştüremedim. Bu konuyla ilgili yardıma ihtiyacım var. Veritabanı nasıl olmalı? Öğretmenlerin, öğrencilerin, sınıfların belirli koşulları olacak tabii. Bunlara göre rastgele veri çekme ve atama için nasıl bir yol izlemeliyim? Yardımcı olursanız sevinirim. Şimdiden çok teşekkür ederim...

Private Sub Command1_Click()
Randomize Timer

ZAR = Int(5 * Rnd(1) + 1)

 MsgBox ("GELEN ZAR " + Str$(ZAR))
End Sub

bu programda  1 ile 6 arasında rastlansal sayılar gelir
sorun için yardımı olabilir.

Hocam teşekkür ederim. Yalnız verdiğiniz örnek rastgele sayı üretimi ile ilgili sanırım. Bu tip örnekler bulmuştum ama basic bilgim o kadar iyi olmadığı için herhalde yorumlayıp kendime uygun hale getiremedim. Benim istediğim veritabanındaki kayıtları tabloya rastgele bir şekilde dağıtmak. Yine de çok teşekkür ederim...

Dim zar As Integer
        Randomize()
        zar = Rnd() * 10
        MsgBox(zar)
'Bu kod sana rastgele 0 dan 10 kadar sayılar üretecektir. 
'Eğer zar'ın değeri 0 ise matematik dersi olsun.

        If zar = 0 Then
            Me.Text = "mat"
        End If

Verdiğiniz fikir için çok teşekkür ederim üzerinde çalışıyorum büyük ihtimalle olacak istediğim. Teşekkürler...

Birşey deil Umarım başarırsınız :D