riempire campi db di codi random

[yro]

spiego:

devo inserire nel campo password di un db access 200 o più codici alfanumerici diversi.

con questo codice mi creo un codice random, ma come posso inserirli nel db.

'funzione per codice random-----------------------
dim key

Function Password_GenPass( nNoChars, sValidChars )

Const szDefault = "abcdefghijklmnopqrstuvwzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"

Randomize

If sValidChars = "" Then
sValidChars = szDefault 
End If
nLength = Len( sValidChars )

For nCount = 1 To nNoChars
nNumber = Int((nLength * Rnd) + 1)
sRet = sRet & Mid( sValidChars, nNumber, 1 )
Next
Password_GenPass = sRet 
End Function
key = Password_GenPass( 12, "" )
response.Write(key)

grazie