27.Add the following AddRecordToDataSetprocedure to the form. This
27.Add the following AddRecordToDataSetprocedure to the form. This procedure is responsiblefor adding a new record entered by the user into the local dataset. Sub AddRecordToDataSet() add the new record to the local datasetOn Error GoTo handleerrorDim row As DataRowrow = contactDS.Tables( Contacts ).NewRowrow( ContactId ) = 0row( LastName ) = txtLName.Textrow( FirstName ) = txtFName.Textrow( MiddleName ) = txtMName.Textrow( Title ) = txtTitle.Textrow( Company ) = txtCompany.Textrow( Address1 ) = txtAddress1.Textrow( Address2 ) = txtAddress2.Textrow( City ) = txtCity.Textrow( Region ) = txtRegion.Textrow( PostalCode ) = txtPostalCode.Textrow( WorkPhone ) = txtWorkPhone.Textrow( HomePhone ) = txtHomePhone.Textrow( CellPhone ) = txtCellPhone.Textrow( WorkEmail ) = txtWorkEmail.Textrow( HomeEmail ) = txtHomeEmail.Textrow( Notes ) = txtNotes.TextcontactDS.Tables( Contacts ).Rows.Add(row) blnAddMode = FalseExit Subhandleerror: MsgBox( An error occurred in AddRecordToDataSet: & Err.Number & - & _ Err.Description) Exit SubEnd Sub28.Add the following BuildGoogleBarprocedure to the form. This procedure is responsible forcommunicating with the Google API to retrieve a list of five Web sites that mention the specifiedcontact. The results are then displayed on the form to the user. You need to replace YOURKEYGOESHEREwhere indicated with your Google API key. Sub BuildGoogleBar() retrieve the top search results about the company or252Chapter
Note: If you are looking for good and high quality web space to host and run your application check Lunarwebhost Clan Web Hosting services