Set DB = DBEngine.OpenDatabase("C:\MyDir\MyDB.MDB") DB.Execute "INSERT INTO MyTable (MyField1, MyField2) VALUES ('abc', 123)" DB.Close Set DB=Nothing End Sub