Need to do update in datarow in vb,bet

See more:

VB

Need to save update drNewRow("FinancialContactID") = GetID("tblFinancialContactTest", "FinancialContactID") - 1
It is a primary key but not identity seed. I need to updat the row note the primary key is finanicalcontactid
I want to save the id.

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.