Analisa Error Navigasi VB6.0

Sekarang kita akan menangani error pada navigasi yang mungkin terjadi di Data Barang,  lihat Gambar di bawah ini.!

Jika temen-temen ingin menambah gambar pada command button tetapi tidak tahu caranya, saya akan kasih tahu, simple kok, pertama klik command button yang ingin diberikan gambar, lihat Command Propertiesnya di samping bawah kanan laya, dan cari kata-kata yang saya lingkari di bawah ini,

Pertama "Style", lingkaran berwarna merah, kita ganti dari "Standart" menjadi "Garphical" kemudian "Picture" arahkan ke gambar yang temen inginkan usahakan berada dalam ruang lingkup Folder Program :).
OK, sekarang ke codingnya,.

Di penjelasan sebelumnya sudah saya bahas tentang array dan ADODCx, jadi saya tidak akan panjang lebar menjelaskannya di sini,

Select Case Index
Case 0
    conbgr.Recordset.MoveFirst  memindahkan  ke record yang paling awal
Case 1
    conbgr.Recordset.MovePrevious memindahkan  ke record sebelumnya
    If conbgr.Recordset.BOF Then Jika record berada pada record pertama maka
    MsgBox "DATA PERTAMA" pesan ini akan muncul
    conbgr.Recordset.MoveFirst akan menampilkan record paling awal
    End If akhir pernyataan
Case 2
    conbgr.Recordset.MoveNext memindahkan record/data ke record selanjutnya
    If conbgr.Recordset.EOF Then Jika record berada pada record terakhir maka
    MsgBox "DATA TERAKHIR" pesan ini akan muncul
    conbgr.Recordset.MoveLast akan menampilkan record paling akhir
    End If akhir pernyataan
Case 3
    conbgr.Recordset.MoveLast Memindahkan ke record paling akhir.
End Select

Cuma itu aja penjelasannya, Terima Kasih sudah mampir ke Blog Kampungan ini, jika temen tambah mumet, saya minta maaf sebesar besarnya.