Hi All,

I have been searching all day to try and work out how to get my Update Command Button to update a record in my workbook.

I have ADD, FIND, Next Recrod, LastRecord, Close and Clear cmdButtons and they all work fine.

I am able locate my field using a comboBox. and then select find and it populated all of my other txtBoxes and cboBoxes but as soon as i make a change and select update it creates a new row at the bottom of by workbook.

See code below. and help would be a massive help 

 Private Sub cmdUpdate_Click()
    Dim ReleaseNumber As String, RisksIssues As String, BaselineEnhancements As String, BaselineDefects As String, BaselineGoLive As Date, PlannedBuildEndDate As Date, ActualBuildEndDate As Date, BaselineApplications As String, CurrentApplications As String, ReleaseStatus As String, ReleaseClosureComments As String
        ReleaseNumber = cboReleaseNumber.Text
            Cells(Currentrow, 1).Value = ReleaseNumber
        RisksIssues = txtRisksIssues.Text
            Cells(Currentrow, 2).Value = RisksIssues
        BaselineEnhancements = txtBaselineEnhancements.Text
            Cells(Currentrow, 3).Value = BaselineEnhancements
        BaselineDefects = txtBaselineDefects.Text
            Cells(Currentrow, 4).Value = BaselineDefects
        BaselineGoLive = txtBaselineGoLive.Text
            Cells(Currentrow, 5).Value = BaselineGoLive
        PlannedBuildEndDate = txtPlannedBuildEndDate.Text
            Cells(Currentrow, 6).Value = PlannedBuildEndDate
        ActualBuildEndDate = txtActualBuildEndDate.Text
            Cells(Currentrow, 7).Value = ActualBuildEndDate
        BaselineApplications = txtBaselineApplications.Text
            Cells(Currentrow, 8).Value = BaselineApplications
        CurrentApplications = txtCurrentApplications.Text
            Cells(Currentrow, 9).Value = CurrentApplications
        ReleaseStatus = cboReleaseStatus.Text
            Cells(Currentrow, 10).Value = ReleaseStatus
        ReleaseClosureComments = txtReleaseClosureComments.Text
            Cells(Currentrow, 11).Value = ReleaseClosureComments
End Sub