current record set does not support upadating

[mheiy]

can anyone help me with this i'v been trying to fix this but i can't. ive already done the solutions posted in forums but still having error...
the error is the .fields(0) = txtappid down... please help me... thank you in advance.

Private Sub Form_Load()
tbInquiry.Open "Select * from tbinquiry", cn, adOpenKeyset, adLockOptimistic
CallFields
End Sub
Private Sub LV1_Click()
str = "Select * from tbinquiry where ApplicantID like '" & LV1.SelectedItem.Text & "'"
Set tbInquiry = cn.Execute(str)
 
With tbInquiry
    If .BOF = False And .EOF = False Then
        txtFind = .Fields(3) & " " & .Fields(1) & ", " & .Fields(2)
        
    End If
End With
End Sub 
 
Private Sub cmdSave_Click()
Frame5.Visible = True
Frame4.Visible = False
txtSummary.Text = "(New Entry Saved. CLick Next To Proceed."
 
With tbInquiry
            .Fields(0) = txtAppID
    .Fields(1) = txtAppInfo(0)
    .Fields(2) = txtAppInfo(1)
    .Fields(3) = txtAppInfo(2)
    .Fields(4) = txtAppInfo(3)
    .Fields(5) = txtAppInfo(4)
    .Fields(6) = cmbTFA.Text
    '.Fields(7) =
        'AddFields
        .Update
         MsgBox "Edit successfully saved to the record.", vbInformation
End With
End Sub
 
Private Sub Form_Load()
str = "Select * from tbinquiry where ApplicantID like '" & frmApplicantDetails.lvList.SelectedItem.Text & "' "
Set tbInquiry = cn.Execute(str)
 
With tbInquiry
    If .BOF = False And .EOF = False Then
        txtAppID = .Fields(0)
        txtAppInfo(0) = .Fields(1)
        txtAppInfo(1) = .Fields(2)
        txtAppInfo(2) = .Fields(3)
        txtAppInfo(3) = .Fields(4)
        txtAppInfo(4) = .Fields(5)
        cmbTFA.Text = .Fields(6)
        
    End If
End With