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

[pumi]

¡¡¡YA LO HE SOLUCIONADO!!!

El código es el que sigue:

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

Private Sub Comando7_Click()

Dim dbsMiBaseDatos As DAO.Database
Dim RelNew As Relation
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

With dbsMiBaseDatos
Set RelNew = .CreateRelation("FKCodEquipos", "Equipos", "Equipos_Integrantes", dbRelationUpdateCascade + dbRelationDeleteCascade)
RelNew.Fields.Append RelNew.CreateField("CodEquipos")
RelNew.Fields!CodEquipos.ForeignName = "CodEquipos"
.Relations.Append RelNew
End With


dbsMiBaseDatos.Close
Set dbsMiBaseDatos = Nothing


End Sub

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

Espero que sirva a más gente, ya que he visto en Internet que este problema que yo tenía se le presentaba a mucha gente.

Saludos a todos y gracias