como modifico este codigo?

[rashid]

'Ahora nos conectamos a una base de datos
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'Nos conectamos con ODBC sin DSN, suponiendo que la base
'de datos está en este mismo directorio
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("usuarios.mdb")
SQL = "SELECT * FROM usuarios"
'Abrimos el Recordset: el 0 es el cursor adForwardOnly
' y el 2 es el cerrojo adLockPessimistic
rs.Open SQL, oConn, 0, 2

'Añadimos un nuevo registro
rs.AddNew
rs.Fields("Nombre") = strNombre
rs.Fields("Edad") = strEdad
rs.Fields("NombreFichero") = objFich.Nombre

'Llamamos a GuardarBD pasandole el campo correspondiente!!!
objFich.GuardarBD rs.Fields("Imagen")


'Guardamos el nuevo registro
rs.Update

'y limpiamos todo que vienen los padres
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing

'¡Todo correcto!
Response.Write "Se ha añadido el nuevo usuario <b>" & strNombre & "</b>, " _
& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."

'Limpiamos nuestro xelUpload y el fichero
set oFich = nothing
set objUpload = nothing

else
'No era un fichero válido
Response.Write("No es un fichero aceptable. ")
Response.Write("Tiene que ser un fichero GIF de menos de 15k.")
end if

end if
%>

En el Include file lo que hay es:
Class xelUpload
' Maneja los formularios enviados como 'multipart/form-data' (ficheros)

Public Ficheros
Private eltosForm

'------------------------------------------------------------------------
Private Sub Class_Initialize()
set Ficheros = Server.CreateObject("Scripting.Dictionary&quo t;)
set eltosForm = Server.CreateObject("Scripting.Dictionary&quo t;)
End Sub
'------------------------------------------------------------------------
Private Sub Class_Terminate()
if IsObject(Ficheros) then
Ficheros.RemoveAll
set Ficheros = not etc..