Cannot delete a table due to a relationship
The following code gives me a message that the table Products
participates in a relationship, and i cannot delete the table.
How can i improve the code so that the tanle will be deleted?
Dim cat As New ADOX.Catalog, objConn As New ADODB.Connection
objConn.Open “Provider= Microsoft.Jet.OLEDB.4.0;Data Source = C:bestorebe.mdb”
With cat
.ActiveConnection = objConn
.Tables.Delete “Products”
End With