error al insertar en db

[acrego]

Hola buenos dias, lo único que cambie fue esto:
esto es le codigo nuevo:

Código:

<%
Set RstPerso = Server.CreateObject("ADODB.Recordset")
RstPerso.ActiveConnection= CN
sql ="INSERT into Personas(DNI,Nome,Apelidos,DataAlta) values ('"&Dni&"','"&Nome&"','"&Apelidos&"','"&DataAlta&"')"
RstPerso.Open SQL,CN ,adOpenDynamic,adLockOptimistic
on error resume next%>

y este el viejo:

Código:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open="DSN=dep;'';'';"
on error resume next
sql ="INSERT into Personas(DNI,Nome,Apelidos,DataAlta) values ('"&Dni&"','"&Nome&"','"&Apelidos&"','"&DataAlta&"')"
conn.execute sql%>

<%Conn.Close
SET Conn = Nothing

y desde que puse la nueva aforma de conectarme, no me funciona.