Ayuda con conexion a BD Acces

[chechun]

Hola tengo este problemita...

<%

Dim RutaTxt
RutaTxt=server.MapPath("index.asp")
RutaTxt=Left(RutaTxt,Len(RutaTxt)-9)
RutaTxt=RutaTxt + "../basededatos/base.mdb"

Set Conexion=Server.CreateObject("ADODB.Connection")

Conexion.Open ("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + Rutatxt)
Set rstAlta=Server.CreateObject("ADODB.RecordSet")
SQLCad="SELECT * FROM Listas"
rstAlta.Open SQLCad, Conexion, adOpenStatic, adCmdTable

rstAlta.AddNew

Dim IDENT
rstAlta("Nombre")=Request.form("Nombre")

rstAlta.Update
rstAlta.Close
%>
ahora, que estoy haciendo mal, ya que antes me andaba perfecto y ahora que cambié de servidor, me canta error.......!!!