Dim cn 
Const CN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\documenti\db1.mdb"
Const ALTER_TABLE = "ALTER TABLE Utenti ADD CONSTRAINT FK_Utenti_Ruoli FOREIGN KEY (idRuolo) REFERENCES Ruoli(id) ON UPDATE CASCADE ON DELETE CASCADE;"

' Definisco un oggetto ADODB.Connection
Set cn = CreateObject("ADODB.Connection") 

' Apro la connessione ed eseguo il comando ALTER TABLE
cn.Open CN_STRING 
cn.Execute ALTER_TABLE

If Err.Number = 0 Then
    MsgBox "Modifica avvenuta con successo.", vbInformation
Else
    MsgBox "Si è verificato l'errore: " & Err.Description, vbExclamation
End If

' Pulizia 
cn.Close
Set cn = Nothing