editing an sql row

[citizenstitch]

I built a program that basically lets you navigate,edit,add,delete records in an access database. When i changed the connection over to an sql table "ish" hit the fan. the adding function and editing function turned into mush. i fixed the add function, but the edit is hairy. when i save it will keep the new value in the text box, but come to reopening the program the old value came back. i guess osme code is in order

'edit button 
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        If btnAdd.Text = "&Cancel" Then
            LockText()
            btnEdit.Enabled = True
            btnDelete.Enabled = True
            btnAdd.Text = "&Add"
            btnSave.Enabled = False
            RejectChanges()
            blnEdit = False
        Else
            unlockText()
            NoNavigation()
            btnSave.Enabled = True
            btnAdd.Text = "&Cancel"
            btnEdit.Enabled = False
            btnDelete.Enabled = False
            blnEdit = True
            displayrecordposition()
        End If
end sub
'save button (don't mind what I have for edit already)
 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If blnAdd = True Then
            Try
                Dim newrow As DataRow = DsSQL1.Dem.NewRow
                newrow("first") = txtFirst.Text
                newrow("last") = txtLast.Text
                newrow("ssn") = txtSSN.Text
                newrow("dob") = txtBday.Text
                DsSQL1.Dem.Rows.Add(newrow)
            Catch exc As Exception
                MessageBox.Show("Unable to add record." & _
                ControlChars.NewLine & exc.Message, "dem")
            End Try
            blnAdd = False
            lblRecordNumber.Text = "Record added"
        End If
        If blnEdit = True Then
'i know i need to fix this but to what?
            Dim editrow As DataRow = DsSQL1.Dem.NewRow
            editrow("first") = txtFirst.Text
            editrow("last") = txtLast.Text
            editrow("ssn") = txtSSN.Text
            editrow("dob") = txtBday.Text
            DsSQL1.Dem.Rows.Add(editrow)
 
        End If
 
        LockText()
        GoNavigation()
        btnSave.Enabled = False
        btnAdd.Text = "&Add"
        blnIsDirty = True
        btnEdit.Enabled = True
        btnDelete.Enabled = True
 
 
    End Sub