AclientDataSet = New WinAppsDataSet
AWinAppsTableAdapter = New WinAppsDataSetTableAdapters.ClientsTableAdapter
AWinAppsTableAdapter.Fill(AclientDataSet.Clients)
AWinAppsBindingSource = New BindingSource
With AWinAppsBindingSource
.DataSource = AclientDataSet
.DataMember = "AclientDataSet"
End With
Dim FirstName As String
FirstName = Me.txtFName.Text
Dim LastName As String
LastName = Me.txtLName.Text
Dim EmailAddress As String
EmailAddress = Me.txtEmailAddress.Text
Dim clientPhone As String
clientPhone = Me.txtPhone1.Text + Me.txtPhone2.Text + Me.txtPhone3.Text
Me.txtFName.DataBindings.Add("text", AWinAppsBindingSource, "FirstName")
AWinAppsBindingSource.AddNew()
AWinAppsBindingSource.EndEdit()
AWinAppsTableAdapter.Update(AclientDataSet.Clients)
ErrorProvider1.Clear()