Atribuir valor de função a campo de tabela

Caros, gostaria de usar a função abaixo para definir como valor padrão de um campo de tabela, mas dá msg de função indefinida, também no relatório ao abrir/imprimir não gera o valor, peço ajuda do que tenham boa vontade aqui com o leigo;

Public Function Autenticar(Sequencia As String)
alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw"
For i = 1 To 24
Randomize
X = Int(Rnd * Len(alfanumerico)) + 1
If InStr(1, Sequencia, Mid(alfanumerico, X, 1)) Then
i = i - 1
Else
Sequencia = Sequencia & Mid(alfanumerico, X, 1)
End If
Next
Autenticar = Sequencia
End Function



Grato desde já

Eduardo

Tente

Código:


Public Function Autenticar(Sequencia As String)
Dim alfanumerico As String
Dim i, x As Integer
alfanumerico = "ABCDEFGHIJKLMNOPQRSTUVXZYW1234567890abcdefghijklmnopqrstuvxzyw"
For i = 1 To 24
Randomize
x = Int(Rnd * Len(alfanumerico)) + 1
If InStr(1, Sequencia, Mid(alfanumerico, x, 1)) Then
  i = i - 1
Else
  Sequencia = Sequencia & Mid(alfanumerico, x, 1)
End If
Next
Autenticar = Sequencia
End Function


Se não funcionar mande a parte do seu db que use esse código.