descargar archivo de access

Hola chicos
necesito descargar un archivo de access, lo hago mediante

<%

File= "c:\domainslb-software.com.ar\db\bd1.mdb"
filename ="base.mdb"
Response.Buffer=True
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile(File)
Set TS=FSO.OpenTextFile(File)
'Response.contenttype="application/unknown"
Response.contenttype="application/vnd.ms-access"
Response.AddHeader "Content-Disposition", "attachment; filename=" &
filename
Response.BinaryWrite TS.readall & ""
TS.close
Set TS = Nothing
Set File = Nothing
Set FSO = Nothing
%>


lo descarga, pero cuando lo intento abrir me da un error: "Formato
desconocido".-

Alguien sabe que estoy haciendo mal, y cual sería la forma correcta de
hacerlo ??

Gracias

Turko