ADO > Insert Into Statement Problems...

Sub CreateUser( Src As Object, E as EventArgs )
 Dim tPass1, tPass2, tUser
 
 tPass1 = Password1.Text
 tPass2 = Password2.Text
 tUser = Username.Text
 
 Message.Text = ""
 
 If tPass1 = tPass2 Then
  Dim dbconn, rs, x, y, conn, connConfig, bUserFound, xv
  bUserFound = False
  conn = Server.CreateObject("ADODB.Connection")
  conn.Provider = "Microsoft.Ject.OLEDB.4.0"
  connConfig = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("databases/users.mdb")
  conn.Open( connConfig )
  
  rs = Server.CreateObject("ADODB.Recordset")
  rs.Open("users", conn)
  
  do until rs.EOF
   for each x in rs.fields
    if x.name = "Username" then
     Dim tLoweredUser as String
     Dim tLoweredValue as String
     
     tLoweredUser = tUser.ToLower()
     tLoweredValue = x.value
     tLoweredValue = tLoweredValue.ToLower()
     
     if tLoweredValue = tLoweredUser then
      bUserFound = True
     end if
    end if
   next
   rs.movenext
  loop
  
  conn.Close
  
  if bUserFound then
   Message.Text = "Username already exists in database!"
   Exit Sub
  else
   'conn = Nothing
   conn = Server.CreateObject("ADODB.Connection")
   conn.Provider = "Microsoft.Jet.OLEDB.4.0"
    conn.Open(server.mapPath("databases/users. mdb"))
   
   Dim sql
   
   sql = "INSERT INTO users (Username,Password,Rank,Joined,Profile,Website)"
   sql = sql & " VALUES "
   sql = sql & "('" & tUser & "',"
   sql = sql & "'" & tPass1 & "',"
   sql = sql & "'1','" & now() & "','a','a')"
   
   On Error Resume Next
   conn.Execute( sql )
   if err.Number <> 0 then
    Message.Text = "Cannot register, please contact the administrator!"
    Response.Write(err.Number & " :: " & err.description)
    Response.Write("<br />")
    Response.Write(sql)
   else
    Message.Text = "You have been registered!"
   end if
   
   conn.close
  end if
 Else
  Message.Text = "Passwords do not match!"
  Exit Sub
 End If
End Sub