Generalmente nunca se hacen tareas aquí en el foro, solo te daré un ejemplo para crear un número aleatorio entre 0 y 1... Una vez veas la idea busca como hacerlo del 0 al 9 que es una simple formulita...Sinó utiliza el botón buscar y lo encontraras.
En un form, pon un text1.box y un commandbutton y añade lo siguiente:
Private Sub Command1_Click()
Dim numero As Byte
Randomize
numero = Rnd
Text1.Text = numero
End Sub
En el text, cada vez que apretes el button aparecera "aleatoriamente" 0 o 1.
Ahora ya sabes que se hace con Randomize->Rnd, el resto te toca a tí
.
Saludos.
PD: Lo de la BD y la columna que mencioas, no me enterao de na XD, pero si lo quieres poner en un fichero de excel, también utiliza el boton buscar o el google.