Creo que podrías hacer algo así
Código:
SET con = server.CreateObject("ADODB.Connection")
On Error ResumeNext
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("./bbdd.mdb")
If not Err.Number = 0 then
response.write(err.number)
response.write(err.description)
end if
y ya con esto obtienes el numero de error para decirle
Código:
If not Err.Number = errorNoExisteBD then
'lo que quieras hacer
end if
saludos y espero te sirva