Private Sub ExecuteSQL(byval SQL_Command as string)

Dim DB_Connection As ADODB.Connection
Dim SQL_Statements() As String
Dim i As Long


'create an array with the SQL statements
SQL_Statements() = Split(SQL_Command, ";")

'establish an ADO connection to the same database
Set DB_Connection = Application.CurrentProject.Connection
        
    'process all SQL statements in the array
    For i = 0 To UBound(SQL_Statements) - 1
	DB_Connection.Execute SQL_Statement
    Next
     
DB_Connection.Close

End Sub