Ai velhim.. acho que o seu problema é que a data esta indo como text.. olha o exemplo ai de baixo..
Login = Request.Form("login")
Senha = Request.Form("senha")
Email = Request.Form("email")
Nivel = Request.Form("nivel")
Data = CDate(Request.Form("Data") )
Sql = "INSERT INTO Admin (login, senha, email, nivel, Data) VALUES ('"&Login&"',
'"&Senha &"', '"&Email &"', '"&Nivel &"', '"&Data&"')"
Set ObjRs = Conexao.Execute(Sql)
Flwssss