Subir Imagen a una base de datos

[M@uR0]

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.SaveVirtual "../upload/" 'carpeta donde se guardaran las fotod

Set File = Upload.Files("file")
If Not File Is Nothing Then
con = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("clinica.mdb")
Set rs = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM bebes"
rs.Open SQL, con, 2 ,3

rs.AddNew
rs("foto") = File.FileName ' Aqui hace referencia la foto
rs("nombres") = Upload.Form("nombres")
rs("apellidos") = Upload.Form("apellidos")
rs("nom_padre") = Upload.Form("n_padre")
rs("nom_madre") = Upload.Form("n_madre")
rs("fecha_nac") = Upload.Form("nacim_fecha")
rs("hora_nac") = Upload.Form("nacim_hora")
rs("peso") = Upload.Form("peso")
rs("altura") = Upload.Form("altura")
rs("sexo") = Upload.Form("sexo")
rs.Update

' rs.Close
' con.Close ' -->En esta linea marca un error
' set rs=nothing
' set con=nothing
Response.Redirect "pagina.htm"
Else
Response.Redirect("pagina.htm")
End If
%>

Este es el error k me marca

Microsoft VBScript runtime error '800a01a8'

Object required: 'con'

/prueba/mantencion/insert_bebes.asp, line 29
Esta es la linea 29

con.Close

yo deje como comentario esas lineas y me funciona, sino lo haces, se cae, aunk el registro lo guarda igual y la foto queda en la carpeta señalada..
Si logras arreglar eso podrias colocarlo asi nos sirve a todos..
Espero te sirva..