oDatabaseConnection = CreateObject("ADODB.Connection") oDatabaseConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mypath\mydatabase.mdb") oRstMyTable = CreateObject("ADODB.Recordset") oRstMyTable.ActiveConnection = oDatabaseConnection oRstMyTable.LockType = 3 && LockOptimistic oRstMyTable.Source = "mytable" oRstMyTable.Open oRstMyTable.AddNew oRstMyTable.Fields("firstname") = "First" oRstMyTable.Fields("lastname") = "Last" oRstMyTable.Update oRstMyTable.Close RELEASE oRstMyTable oDatabaseConnection.Close RELEASE oDatabaseConnectionHope this helps,