Random kode ind i database og form

Hej Alle!

Jeg har et forholdsvis simpelt problem : )

Jeg har en form, hvor jeg sender dataen over til understående:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strSQL = "Insert into menuopsaetning ("

strSQL = strSQL & "rel, "
strSQL = strSQL & "link, "
strSQL = strSQL & "html) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("rel") & "', "
strSQL = strSQL & "'" & request.form("link") & "', "
strSQL = strSQL & "'" & request.form("html") & "')"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

response.redirect ("oprettet.asp")
%>

Jeg vil have lavet det sådan, at den til endnu et felt tilføjer et tilfældigt tal, på eksempelvis 4 cifre, ind i et felt der hedder "rela".

Hvordan gør jeg det? Meget gerne et praktisk eksempel *Gg*

På forhånd tak.