Penanganan error visual basic

Malam ini saya akan menulis cara penanganan error visual basic, dalam praktek ini saya menggunakan visual basic 6.0. Penanganan yang akan saya tulis malam ini adalah jika anda memasukkan data yang sama di database, biasanya ketika anda ingin menginputkan data. Pada saat anda membaca tulisan ini saya harap anda sudah belajar cara koneksi ke database. Oke langsung pada contohnya saja.
Disini saya contohkan ingin menyimpan data anggota dan ketika kita memasukkan nomor anggota yang sama akan terjadi error, nah inilah yang akan dibahas:

Private Sub Simpan_Click()
'Memanggil koneksi dari modul
Call buka
'Tulis coding dibawah ini untuk penanganan errornya
sql = "select no_anggota from anggota where no_anggota='" & Text1.Text & "'"
rs.Open sql, konek, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
MsgBox "Nomor anggota sudah ada", vbInformation, "Pemberitahuan'"
Else
'Simpan data
sql = "insert into anggota values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "')"
konek.Execute (sql)
End If
End Sub


Semoga bermanfaat....