Ayuda Por Favor VB6 Con Base De Datos?

[R3Z]

Soy Nuevo en lo de vb6 vinculado con base de datos

pero quiera saber si me pueden ayudar  tengo 4 labels  cada label tiene su propio nombre que seria  matricula,nombre,apellido,carrera  y tengo un label que dice clave  ya la base de datos estan vinculado con vb6  cada label tiene su propio datafield.

estoy haciendo algo como un registro de   estudiantes de nuevo ingreso

mi pregunta es como le pongo una clave a cada estudiante cuando se registre quisiera que  la clave  cambia automaticamente  cada vez que se registra un nuevo estudiante

estaba pensando algo como un for pero como dije soy un poco nuevo en lo de vb6 y base de datos

mas o menos mi codigo es asi   me sale todo perfecto menos la clave  para cambiar la clave de dicho estudiante tengo que estar parando el programa y cambiar la clave en lblpass cada vez

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
If txtnombre = Me.txtnombre.Text Then
lblpass = "4321"
End If

End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Form_Load()
lblmensaje.Visible = False
End Sub

Private Sub txtedad_Change()
lblmensaje.Visible = True
End Sub

[asdexiva]

haber utiliza esto y me dices

Código (vb) [Seleccionar] Expandir

Dim aleatorio As String
aleatorio = Str(Int(Rnd(1000) * 1000))

Private Sub Command1_Click()
If txtnombre = Me.txtnombre.Text Then
lblpass = aleatorio
End If

End Sub

Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Update
End Sub

Private Sub Command4_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Form_Load()
lblmensaje.Visible = False
End Sub

Private Sub txtedad_Change()
lblmensaje.Visible = True
End Sub

[R3Z]

Gracias Ha sido Gran Ayuda

Que Dios te bendiga hermano