SoloCodigo

Crea 5 etiquetas con indice, desde el 1 hasta el 5, y usa el siguiente ejemplo.

Private Sub Command1_Click()
Dim vector(1 To 5) As Integer
For i = 1 To 5
    vector(i) = 0
Next i

For i = 1 To 5
    Sigue = 1
    While Sigue = 1
        Numero = Obtiene_Numero
        Esta = 0
        For j = 1 To i
            If vector(j) = Numero Then
                Esta = 1
            End If
        Next j
        If Esta = 0 Then
            vector(i) = Numero
            Sigue = 0
        End If
    Wend
    Label1(Numero) = "Campo " & i
Next i
End Sub

Public Function Obtiene_Numero() As Integer
Sigue = 1
While Sigue = 1
    Numero = CInt(10 * Rnd())
    If Numero > 0 And Numero < 6 Then
        Sigue = 0
    End If
Wend
Obtiene_Numero = Numero
End Function


Esta es la base para tu problema, donde deberias reemplazar

    Label1(Numero) = recordset.fields(i)