Try 'Add Financial Contact record adaptFinancialContact = New SqlClient.SqlDataAdapter("Select * From tblFinancialContactTest", conSQL) datAddFinancialContact = New DataSet adaptFinancialContact.FillSchema(datAddFinancialContact, SchemaType.Source, "FinancialContact") adaptFinancialContact.MissingSchemaAction = MissingSchemaAction.AddWithKey adaptFinancialContact.Fill(datAddFinancialContact, "FinancialContact") Dim drNewRow As DataRow drNewRow = datAddFinancialContact.Tables("FinancialContact").NewRow 'drNewRow("FinancialContactID") = GetID("tblFinancialContactTest", "FinancialContactID") - 1 drNewRow("ProviderID") = intProvID drNewRow("FinancialContactPrefix") = cboFinancialContactSalutation.Text drNewRow("FinancialContact") = Trim(txtFinancialContactName.Text) drNewRow("FinancialPosition") = Trim(txtFinancialContactPosition.Text) drNewRow("FinancialPhone") = Trim(txtFinancialContactPhone.Text) drNewRow("FinancialExtension") = Trim(txtFinancialPhoneExtension.Text) drNewRow("FinancialFax") = Trim(txtFinancialFaxNumber.Text) drNewRow("FinancialEmail") = Trim(txtFinancialEmail.Text) datAddFinancialContact.Tables("FinancialContact").Rows.Add(drNewRow) Dim sqlCommBuild As New SqlClient.SqlCommandBuilder(adaptFinancialContact) adaptFinancialContact.Update(datAddFinancialContact, "FinancialContact") Catch ex As Exception CentralExceptionHandler(ex, "Add financial contact") End Try.
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)