[indoprog-vb] mohon pencerahan untuk case saya tentang run-time error '3251' (does not suppoerting update)

[Doni Rahadian]

Dear All Mohon bantuannya untuk case berikut :
Saya punya listing program untuk save data :

Private Sub Cmd_Save_Click(Index As Integer)
If Index = 0 Then
    If sw <= 1 Then
        If sw = 0 Then
            rs_merchantdebit.AddNew
            rs_merchantdebit.Fields("mid") = TXTmid.Text
        End If
        rs_merchantdebit.Fields("nama_merchant") = Text1.Text
        rs_merchantdebit.Fields("mso") = Text2.Text
        rs_merchantdebit.Fields("nama_persh") = Text3.Text
        rs_merchantdebit.Fields("alamat") = Text4.Text
        rs_merchantdebit.Fields("kota") = Text5.Text
        rs_merchantdebit.Fields("nama_pemilik") = Text6.Text
        rs_merchantdebit.Fields("contact_person") = Text7.Text
        rs_merchantdebit.Fields("No_telp") = Text8.Text
        rs_merchantdebit.Fields("fax") = Text9.Text
        rs_merchantdebit.Fields("open_date") = CDate(text10.Text)
        rs_merchantdebit.Fields("mcc") = Cbo_mcc.Text
        rs_merchantdebit.Fields("no_rekening") = Text12.Text
        rs_merchantdebit.Fields("nama_bank") = Text13.Text
        rs_merchantdebit.Fields("status") = Text14.Text
        rs_merchantdebit.Fields("jml_edc") = Text15.Text
        rs_merchantdebit.Update
    Else
        If sw = 3 Then
            rs_merchantdebit.Delete
        End If
    End If
End If
Call bersih
End Sub

namun setiap saya mengclick button save tersebut, keluar error mesage :
run-time error '3251'
current recordset does not supporting updating. This may be a limitation
of the provider, or of the selected locktype

jika di debug yang berwarna kuning code di line ---> rs_merchantdebit.AddNew

mohon sekali pencerahaannya ...its really help for me ...


[Non-text portions of this message have been removed]