Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Adding a New Record to a Recordset

Sub cmdAddADO()     Dim rst As ADODB.Recordset         Set rst = New ADODB.Recordset         With rst             .ActiveConnection = CurrentProject.Connection             .CursorType = adOpenKeyset             .LockType = adLockOptimistic             .Open "Select * from Employees Where EmployeeID = 0"             .AddNew                 !FirstName = "newF"                 !LastName = "newL"                 !Region = "new"             .Update         End With End Sub