In my project, when I press the update inquiry button, it is updating the current record, and also updating the first record in the database. Please help!

Private Sub cmdUpdate_Click()

Dim temp As String

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Issues_files\issues.mdb;"


rst.Open "Select * from tblLog", cnn, adOpenKeyset, adLockOptimistic


rst.Update

rst!ReportedBy = txtReportedBy
rst!EnteredBy = txtEnteredBy
rst!Category = cboCategory.Text
rst!Issue = txtIssue
rst!datereported = txtDateReported
rst!DateOccured = txtDateOccured
rst!TimeOccured = txtTimeOccured
rst!Priority = cboPriority.Text
rst!DownTime = txtDownTime.Text
rst!Location = txtLocation.Text
rst!CubeNumber = txtCube
rst!Tech = cboTechAssigned.Text
rst!Status = cboStatus.Text
rst!DateClosed = txtDateClosed
rst!ClosedBy = cboClosedBy.Text
rst!DownTimeHours = txtDownTimeHours
rst!Solution = txtSolution


rst.Update

temp = MsgBox("Record successfully updated.", vbOKOnly, "Update Record")

rst.Close
cnn.Close

Set rst = Nothing
Set cnn = Nothing

End Sub