Tengo problemas al grabar un campo MEMO

[nervillweb]

Necesito ayuda con esto, a continuacion les muestro el codigo el problema es que quiero grabar un campo memo y no lo graba alguien puede ayudarme?


<%
Dim titulo, Descripcion, Fecha, Hora, Depto, EStatus, Ubicacion

Titulo = request.form("Titulodelcaso")
'Descripcion es el campo MEMO que necesito que grabe en la BD
Descripcion = request.form("Descripciondelcaso")
Fecha = date()
Hora = time()
Depto = request.form("Departamento")
EStatus = 1
Ubicacion = request.form("Ubicaciondelcaso")

Dim con
datos = "C:\Inetpub\wwwroot\soporte\base.mdb"
Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"

sql= "INSERT INTO casos (Titulodelcaso, Descripciondelcaso, FechaCreacion, HoraCreacion, Departamento, status, Ubicaciondelcaso) VALUES ('"&titulo&"', '"&descripcion&"', '"&fecha&"', '"&hora&"', '"&depto&"', '"&estatus&"', '"&ubicacion&"');"

Set rs= con.execute(sql)

On Error Resume Next

if Err <> 0 Then
response.write Err
Else
Response.write "Gracias por introducir tus datos"
End If

rs.close
Set rs= Nothing
con.close
Set con= Nothing
%>