[/COLOR][/SIZE]
[INDENT][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] msg [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]String[/COLOR][/SIZE][/INDENT]
[INDENT][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] title [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]String[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] style [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] MsgBoxStyle[/SIZE][/INDENT][INDENT][SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] response [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] MsgBoxResult[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]On[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Error[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]GoTo[/COLOR][/SIZE][SIZE=2] Handler[/SIZE][INDENT][SIZE=2]msg = [/SIZE][SIZE=2][COLOR=#a31515]"Save New Customer Record "[/COLOR][/SIZE][SIZE=2] & txtLastName1.Text & [/SIZE][SIZE=2][COLOR=#a31515]", "[/COLOR][/SIZE][SIZE=2] & txtFirstName1.Text & [/SIZE][SIZE=2][COLOR=#a31515]" "[/COLOR][/SIZE][SIZE=2] & txtMiddleInitial1.Text & [/SIZE][SIZE=2][COLOR=#a31515]"?"[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2]style = MsgBoxStyle.YesNo[/SIZE][/INDENT][INDENT][SIZE=2]title = [/SIZE][SIZE=2][COLOR=#a31515]"Save?"[/COLOR][/SIZE][SIZE=2][COLOR=#008000]' Define title.[/COLOR][/SIZE][/INDENT]
[INDENT][SIZE=2][COLOR=#008000]'Make sure they want to save changes before you exit[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2]response = MsgBox(msg, MsgBoxStyle.Question + style, title)[/SIZE][/INDENT]
[INDENT][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] response = MsgBoxResult.Yes [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2][COLOR=#008000]' User chose Yes.[/COLOR][/SIZE][INDENT][SIZE=2]rowContact = dsContact.Tables([/SIZE][SIZE=2][COLOR=#a31515]"Contact"[/COLOR][/SIZE][SIZE=2]).NewRow[/SIZE][/INDENT]
[INDENT][SIZE=2][COLOR=#008000]'-- Start the editing in the datarow.[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2]rowContact.BeginEdit()[/SIZE][/INDENT]
[INDENT][SIZE=2][COLOR=#008000]'-- Run through the text boxes on the form, and[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2][COLOR=#008000]'-- if they match up with a field from the record,[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2][COLOR=#008000]'-- place the value back in the record.[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"LastName1"[/COLOR][/SIZE][SIZE=2]) = txtLastName1.Text[/SIZE][/INDENT][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FirstName1"[/COLOR][/SIZE][SIZE=2]) = txtFirstName1.Text[/SIZE][/INDENT][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"MiddleInitial1"[/COLOR][/SIZE][SIZE=2]) = txtMiddleInitial1.Text[/SIZE][/INDENT][INDENT][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtLastName2.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"" [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"LastName2"[/COLOR][/SIZE][SIZE=2]) = txtLastName2.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"LastName2"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtFirstName2.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"" [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FirstName2"[/COLOR][/SIZE][SIZE=2]) = txtFirstName2.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FirstName2"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtMiddleInitial2.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"" [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"MiddleInitial2"[/COLOR][/SIZE][SIZE=2]) = txtMiddleInitial2.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"MiddleInitial2"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtCurrentStreet.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"" [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentStreet"[/COLOR][/SIZE][SIZE=2]) = txtCurrentStreet.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentStreet"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtCurrentCity.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentCity"[/COLOR][/SIZE][SIZE=2]) = txtCurrentCity.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentCity"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtCurrentState.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentState"[/COLOR][/SIZE][SIZE=2]) = txtCurrentState.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentState"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtCurrentZipCode.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentZip"[/COLOR][/SIZE][SIZE=2]) = txtCurrentZipCode.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentZip"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtCurrentCounty.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentCounty"[/COLOR][/SIZE][SIZE=2]) = txtCurrentCounty.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CurrentCounty"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtFutureStreet.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureStreet"[/COLOR][/SIZE][SIZE=2]) = txtFutureStreet.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureStreet"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtFutureCity.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureCity"[/COLOR][/SIZE][SIZE=2]) = txtFutureCity.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureCity"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtFutureState.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureState"[/COLOR][/SIZE][SIZE=2]) = txtFutureState.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureState"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtFutureZipCode.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureZip"[/COLOR][/SIZE][SIZE=2]) = txtFutureZipCode.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureZip"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtFutureCounty.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureCounty"[/COLOR][/SIZE][SIZE=2]) = txtFutureCounty.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"FutureCounty"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtHomePhone.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"( ) -"[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"HomePhone"[/COLOR][/SIZE][SIZE=2]) = txtHomePhone.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"HomePhone"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtFax.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"( ) -"[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"Fax"[/COLOR][/SIZE][SIZE=2]) = txtFax.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"Fax"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtOfficePhone.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"( ) -"[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"OfficePhone"[/COLOR][/SIZE][SIZE=2]) = txtOfficePhone.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"OfficePhone"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtExtension.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"Ext"[/COLOR][/SIZE][SIZE=2]) = txtExtension.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"Ext"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtCellPhone.Text <> [/SIZE][SIZE=2][COLOR=#a31515]"( ) -"[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CellPhone"[/COLOR][/SIZE][SIZE=2]) = txtCellPhone.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"CellPhone"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] txtEmail.Text <> [/SIZE][SIZE=2][COLOR=#a31515]""[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"Email"[/COLOR][/SIZE][SIZE=2]) = txtEmail.Text[/SIZE][/INDENT]
[SIZE=2][COLOR=#0000ff]Else[/COLOR][/SIZE][INDENT][SIZE=2]rowContact([/SIZE][SIZE=2][COLOR=#a31515]"Email"[/COLOR][/SIZE][SIZE=2]) = Chr(32)[/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#008000]'-- Finish the editing of the datarow[/COLOR][/SIZE]
[SIZE=2]rowContact.EndEdit()[/SIZE]
[SIZE=2]dsContact.Tables([/SIZE][SIZE=2][COLOR=#a31515]"Contact"[/COLOR][/SIZE][SIZE=2]).Rows.Add(rowContact)[/SIZE]
[SIZE=2][COLOR=#008000]'-- Create an instance of the command builder[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] ocbContact [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2] OleDb.OleDbCommandBuilder[/SIZE]
[SIZE=2]ocbContact = [/SIZE][SIZE=2][COLOR=#0000ff]New[/COLOR][/SIZE][SIZE=2] OleDb.OleDbCommandBuilder(daContact)[/SIZE]
[SIZE=2][COLOR=#008000]'-- Have the command builder create an Insert SQL command[/COLOR][/SIZE]
[SIZE=2]daContact.InsertCommand = ocbContact.GetInsertCommand[/SIZE]
[SIZE=2][COLOR=#008000]'-- Perform the specified SQL command; then close the connection[/COLOR][/SIZE]
[SIZE=2]daContact.Update(dsContact, [/SIZE][SIZE=2][COLOR=#a31515]"Contact"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]dsContact.Tables([/SIZE][SIZE=2][COLOR=#a31515]"Contact"[/COLOR][/SIZE][SIZE=2]).AcceptChanges()[/SIZE]
[SIZE=2][COLOR=#008000]'-- Close the connection[/COLOR][/SIZE]
[SIZE=2]daContact.InsertCommand.Connection.Close()[/SIZE]
[SIZE=2]MsgBox([/SIZE][SIZE=2][COLOR=#a31515]"File for "[/COLOR][/SIZE][SIZE=2] & txtFirstName1.Text & [/SIZE][SIZE=2][COLOR=#a31515]" "[/COLOR][/SIZE][SIZE=2] & txtMiddleInitial1.Text & [/SIZE][SIZE=2][COLOR=#a31515]". "[/COLOR][/SIZE][SIZE=2] & txtLastName1.Text & [/SIZE][SIZE=2][COLOR=#a31515]" added!"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2][COLOR=#0000ff]Dim[/COLOR][/SIZE][SIZE=2] Indx [/SIZE][SIZE=2][COLOR=#0000ff]As[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Integer[/COLOR][/SIZE]
[SIZE=2]System.Windows.Forms.Application.DoEvents()[/SIZE]
[COLOR=darkgreen]'Clearing my textbox fields in case they add more records[/COLOR]
[SIZE=2][COLOR=#0000ff]With[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][SIZE=2].Controls[/SIZE][INDENT][SIZE=2][COLOR=#0000ff]For[/COLOR][/SIZE][SIZE=2] Indx = 0 [/SIZE][SIZE=2][COLOR=#0000ff]To[/COLOR][/SIZE][SIZE=2] .Count - 1[/SIZE][INDENT][SIZE=2][COLOR=#0000ff]If [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][SIZE=2].Controls(Indx).Tag = [/SIZE][SIZE=2][COLOR=#a31515]"1" [/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][/INDENT][INDENT][SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][SIZE=2].Controls(Indx).Text = [/SIZE][SIZE=2][COLOR=#0000ff]Nothing[/COLOR][/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Next[/COLOR][/SIZE]
[/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]With[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Me[/COLOR][/SIZE][SIZE=2].txtLastName1.Focus()[/SIZE]
[SIZE=2]System.Windows.Forms.Application.DoEvents()[/SIZE]
[SIZE=2][COLOR=#008000]'Clear Data Table[/COLOR][/SIZE]
[SIZE=2]dsContact.Clear()[/SIZE]
[SIZE=2]dsPackage.Clear()[/SIZE]
[SIZE=2]dsService.Clear()[/SIZE]
[SIZE=2]dtContact.Clear()[/SIZE]
[SIZE=2]dtPackage.Clear()[/SIZE]
[SIZE=2]dtService.Clear()[/SIZE]
[SIZE=2]System.Windows.Forms.Application.DoEvents()[/SIZE]
[SIZE=2]cn.Close()[/SIZE]
[SIZE=2][COLOR=#008000]'RaiseEvent OpenFileDialog1(m_FileNames(i).ToString)[/COLOR][/SIZE]
[SIZE=2]strConnection = [/SIZE][SIZE=2][COLOR=#a31515]"Provider=Microsoft.Jet.OLEDB.4.0;Data Source = "[/COLOR][/SIZE][SIZE=2]& Filename2[/SIZE]
[SIZE=2]cn.ConnectionString = strConnection[/SIZE]
[SIZE=2]cn.Open()[/SIZE]
[SIZE=2]System.Windows.Forms.Application.DoEvents()[/SIZE]
[SIZE=2][COLOR=#008000]' Fill the Contacts DataTable [/COLOR][/SIZE]
[SIZE=2]daContact.Fill(dsContact, [/SIZE][SIZE=2][COLOR=#a31515]"Contact"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]dtContact = dsContact.Tables.Item([/SIZE][SIZE=2][COLOR=#a31515]"Contact"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]System.Windows.Forms.Application.DoEvents()[/SIZE]
[SIZE=2][COLOR=#008000]' Fill the Package DataTable[/COLOR][/SIZE]
[SIZE=2]daPackage.Fill(dsPackage, [/SIZE][SIZE=2][COLOR=#a31515]"Package"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]dtPackage = dsPackage.Tables.Item([/SIZE][SIZE=2][COLOR=#a31515]"Package"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]System.Windows.Forms.Application.DoEvents()[/SIZE]
[SIZE=2][COLOR=#008000]' Fill the Service Table[/COLOR][/SIZE]
[SIZE=2]daService.Fill(dsService, [/SIZE][SIZE=2][COLOR=#a31515]"Service"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]dtService = dsService.Tables.Item([/SIZE][SIZE=2][COLOR=#a31515]"Service"[/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]System.Windows.Forms.Application.DoEvents()[/SIZE]
[SIZE=2][COLOR=#008000]'Clear TreeView Control[/COLOR][/SIZE]
[SIZE=2]frmMain.tvTreeView.Nodes.Clear()[/SIZE]
[SIZE=2]frmMain.updateTree()[/SIZE]
[SIZE=2]frmMain.tvTreeView.Enabled = [/SIZE][SIZE=2][COLOR=#0000ff]False[/COLOR][/SIZE]
[/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE][SIZE=2] response = MsgBoxResult.No [/SIZE][SIZE=2][COLOR=#0000ff]Then[/COLOR][/SIZE][SIZE=2][COLOR=#008000]' User chose No.[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]If[/COLOR][/SIZE]
[SIZE=2][COLOR=#0000ff]Exit[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE]
[/INDENT][SIZE=2]Handler:[/SIZE][INDENT][SIZE=2]MsgBox([/SIZE][SIZE=2][COLOR=#a31515]"ERROR!"[/COLOR][/SIZE][SIZE=2] & Chr(13) & Chr(13) & [/SIZE][SIZE=2][COLOR=#a31515]"An error occurred. Error Number: "[/COLOR][/SIZE][SIZE=2] & Err.Number & _[/SIZE][/INDENT][INDENT][SIZE=2][COLOR=#a31515]" Description: "[/COLOR][/SIZE][SIZE=2][COLOR=#1d1d1d] & Err.Description & [/COLOR][/SIZE][SIZE=2][COLOR=#a31515]" Source: "[/COLOR][/SIZE][SIZE=2][COLOR=#1d1d1d] & Err.Source, MsgBoxStyle.Critical, [/COLOR][/SIZE][SIZE=2][COLOR=#a31515]"ERROR!"[/COLOR][/SIZE][SIZE=2][COLOR=#1d1d1d])[/COLOR][/SIZE][/INDENT][SIZE=2][COLOR=#0000ff]End[/COLOR][/SIZE][SIZE=2][COLOR=#0000ff]Sub[/COLOR][/SIZE]
[COLOR=#0000ff][/COLOR]
[COLOR=#0000ff]