Me da un error el ON UPDATE CASCADE y el ON DELETE CASCADE

[pumi]

Hola Ribon, gracias por tu resouesta.

Creo que te he entendido, pero me sigue sin funcionar. Este es el código que estoy usando:

---------------------------------------------------------------------------------------

Private Sub Comando7_Click()

Dim dbsMiBaseDatos As DAO.Database
Dim miselect As String

Set dbsMiBaseDatos = DBEngine.OpenDatabase("C:\A.accdb")

'----------------------------------------------
'----------------------------------------------


'Creamos la tabla Equipos
miselect = "CREATE TABLE Equipos (CodEquipos Autoincrement PRIMARY KEY, NombreEquipo Text(255));"
dbsMiBaseDatos.Execute miselect

'----------------------------------------------
'----------------------------------------------

'Creamos la tabla Equipos_Integrantes
miselect = "CREATE TABLE Equipos_Integrantes (CodEquiposIntegrantes Autoincrement PRIMARY KEY, CodEquipos Long, CodResponsable Long);" dbsMiBaseDatos.Execute miselect

miselect = "ALTER TABLE Equipos_Integrantes ADD CONSTRAINT FKCodEquipos FOREIGN KEY (CodEquipos) REFERENCES Equipos (CodEquipos) ON UPDATE CASCADE ON DELETE CASCADE;"
dbsMiBaseDatos.Execute miselect


dbsMiBaseDatos.Close
Set dbsMiBaseDatos = Nothing

End Sub

--------------------------------------------------------------------------------------



Cuando ejecuto es te código me da el siguiente mendaje de error:

Se ha producido el error 3289 en tiempo de ejecución.
Error de sintaxis en la cláusula CONSTRAINT.

Pero si no pongo el "ON UPDATE CASCADE ON DELETE CASCADE", este error no se produce y si me genera la relación entre las dos tablas.

¿Sabes qué puede estar pasando?.

Gracias y un saludo.