Dove è che sbaglio?

<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("data.mdb")

for i=0 to 800

caratteri = "0123456789ABCDEMNPRSTU"
Randomize
Do Until len(password) = 6
carattere = Int((37 * Rnd) + 1)
password = password & Mid(caratteri,carattere,1)
Loop

SQL="UPDATE tabella set campo_password='"&password&"' WHERE id="&i
Conn.Execute(SQL)
next
%>