Well the code is kind of long: Public Class frmMain4 Inherits System.Windows.Forms.Form Private Sub cboFullname_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboFullname.SelectedIndexChanged Dscustinfo21.Clear() dbCustInfo.SelectCommand.Parameters("fullname").Value = cboFullname.Text dbCustInfo.Fill(Dscustinfo21) End Sub Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click 'allows you to edit a record If btnEdit.Text = "Edit" Then UnlockTextBoxes() btnSave.Enabled = True btnEdit.Text = "Cancel" ElseIf btnEdit.Text = "Cancel" Then LockTextBoxes() btnSave.Enabled = False End If End Sub Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click 'saves the record LockTextBoxes() btnSave.Enabled = False btnEdit.Text = "Edit" Try dbCustInfo.Update(Dscustinfo21, "tcust") Catch ex As Exception MsgBox("Update didn't work.") End Try MsgBox("Update must have worked.") End Sub Private Sub mnuFileExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileExit.Click 'closes the program Me.Close() End Sub Private Sub UnlockTextBoxes() txtLastName.ReadOnly = False txtName.ReadOnly = False txtAddress.ReadOnly = False txtAddress1.ReadOnly = False txtCity.ReadOnly = False txtState.ReadOnly = False txtZip.ReadOnly = False txtCountry.ReadOnly = False txtHomePhone.ReadOnly = False txtWorkPhone.ReadOnly = False txtMobile.ReadOnly = False txtPager.ReadOnly = False txtEmail.ReadOnly = False End Sub Private Sub LockTextBoxes() txtLastName.ReadOnly = True txtName.ReadOnly = True txtAddress.ReadOnly = True txtAddress1.ReadOnly = True txtCity.ReadOnly = True txtState.ReadOnly = True txtZip.ReadOnly = True txtCountry.ReadOnly = True txtHomePhone.ReadOnly = True txtWorkPhone.ReadOnly = True txtMobile.ReadOnly = True txtPager.ReadOnly = True txtEmail.ReadOnly = True End Sub Private Sub frmMain4_Load(ByVal sender As System.Object, ByVal