Hola como estan, tengo una tabla con claves de autorizacion, lo que quiero hacer es que el operador vaya al formulario, le de generar clave y me muestre de manera aleatoria una de las 50 clavez que tengo almacenadas en un tabla.

Este es el codigo
N = Int(Rnd * 5) + 1 ' genero un numero aleatorio
if N > 50 then N = N 50 ' me aseguro que este dentro de los 50
Codigos.Recordset.Move N ' me dirigo a un registro dentro de los 50
text1= .Recordset.Codigo


El problema es en la linea del move, me tira el error 3159 ( No es un marcador valido ).
Quisiera me ayuden a resolver esto, o si hay otra manera de como puedo acceder a un registro al azar de una tabla.
Gracias desde ya

Hola, por favor proba asi que deberia funcionar
Espero te sirva

Código:

Private Sub Command1_Click()
Dim N As Byte 'Byte para que siempre sea entero
Dim rs As ADODB.Recordset, Sql As String, Base As String

Randomize 'para que Rnd no te de siempre el mismo numero
N = (Rnd() * 50)

Set rs = New ADODB.Recordset
Sql = "select Codigo from TuTabla where Codigo = " & N
Base = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TuTabla.mdb" & ";Persist Security Info=False"

    With rs
     .ActiveConnection = Base
     .CursorType = adOpenStatic
     .CursorLocation = adUseClient
     .Open Sql
    End With
'Si lo encontro lo muestro, sino aviso
If rs.RecordCount > 0 Then
    Text1 = rs!Codigo
Else
    Text1.Text = "No encontrado"
End If

End Sub

gracias por tu aporte, lo solucione en base a tu idea con bucle y findfirst, muchas gracias