Sub AddNewX() 

     

     Dim dbsNorthwind As Database 

     Dim rstEmployees As Recordset 

     Dim strFirstName As String 

     Dim strLastName As String 

     

     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 

     Set rstEmployees = _ 

     dbsNorthwind.OpenRecordset("Employees", dbOpenDynaset) 

     

     ' Get data from the user. 

     strFirstName = Trim(InputBox( _ 

     "Enter first name:")) 

     strLastName = Trim(InputBox( _ 

     "Enter last name:")) 

     

     ' Proceed only if the user actually entered something 

     ' for both the first and last names. 

     If strFirstName <> "" and strLastName <> "" Then 

     

     ' Call the function that adds the record. 

     AddName rstEmployees, strFirstName, strLastName 

     

     ' Show the newly added data. 

     With rstEmployees 

     Debug.Print "New record: " & !FirstName & _ 

     " " & !LastName 

     ' Delete new record because this is a demonstration. 

     .Delete 

     End With 

     

     Else 

     Debug.Print _ 

     "You must input a string for first and last name!" 

     End If 

     

     rstEmployees.Close 

     dbsNorthwind.Close 

     

    End Sub 

     

    Function AddName(rstTemp As Recordset, _ 

     strFirst As String, strLast As String) 

     

     ' Adds a new record to a Recordset using the data passed 

     ' by the calling procedure. The new record is then made 

     ' the current record. 

     With rstTemp 

     .AddNew 

     !FirstName = strFirst 

     !LastName = strLast 

     .Update 

     .Bookmark = .LastModified 

     End With 

     

    End Function