Minta tolong gan, kesalan coding di bawah ini dimana yah, soalnya ketika menyimpan record baru melalui button simpan coding yang di eksekusi adalah proses edit, dan record tidak tersimpan.
ane coba input record langsung dari tabel yg ada di DB access kemudian ane input lagi (dg record berbeda) tapi melalui aplikasi yg di VB, alhasil record bisa tersimpan, akan tetapi menimpa record yang sudah ada (yg diinput langsung di tabel)
Terima kasih bnyak sebelumnya.

Private Sub cmd_simpan_Click()

If txt_kode = "" Or txt_nama = "" Or txt_instansi = "" Or txt_alamat = "" Or txt_tlp = "" Then

MsgBox "Silakkan data diisi dengan lengkap !", vbCritical, App.Title

txt_kode.SetFocus



ElseIf proses = "simpan" Then

Set rspelanggan = New ADODB.Recordset

rspelanggan.Open "SELECT * FROM tbpelanggan", koneksi, adOpenKeyset, adLockOptimistic



koneksi.Execute "INSERT INTO tbpelanggan VALUES ('" & txt_kode.Text & "','" & txt_nama.Text & "','" & txt_instansi.Text & "','" & txt_alamat.Text & "','" & txt_tlp.Text & "','" & txt_ket.Text & "')"

MsgBox "PELANGGAN dengan kode '" & cari & "' berhasil disimpan", vbInformation, App.Title



Call txt_clear

txt_kode.SetFocus



Call open_rspelanggan



Else

koneksi.Execute "UPDATE tbpelanggan SET KODE='" & txt_kode.Text & "',NAMA='" & txt_nama.Text & "',INSTANSI='" & txt_instansi.Text & "',ALAMAT='" & txt_alamat.Text & "',TELPON='" & txt_tlp.Text & "',KETERANGAN='" & txt_ket.Text & "'"

MsgBox "PELANGGAN dengan kode '" & cari & " ' telah dirubah", vbInformation, App.Title



Call open_rspelanggan



Call txt_clear

txt_kode.SetFocus

End If

End Sub