Tutorial VB menggunakan Dataenvironment

===============================================
UNTUK MENGAKTIFKAN TOMBOL NAVIGASI , TAMBAH DATA , SIMPAN DATA , EDIT DATA ,CARI DATA , DAN
POSISI RECORD AKAN TAMPIL [ADA TEXT BOX
======================================================
Private Sub Command1_Click(INDEX As Integer)

With DataEnvironment1.rsBARANG 'untuk rsBARANG ne tergantung tabel kalian ya
Select Case INDEX
Case 0 'untuk tombol first
.MoveFirst
isi

Case 1 'untuk tombol back
.moveprovious
if .bof then .movefirst
isi

Case 2 'untuk tombol next
.movenext
if .eof then .movelast
isi

Case 3 'untuk tombol last
.MoveLast
isi

Case 4 'untuk tombol add
.AddNew
text1.text=""
text2.text=""
Text11.SetFocus

Case 5 'untuk tombol simpan
.fields(0)=text1.text
.fields(1)=text2.text
.Update

Case 6 'untuk tombol delete
.Delete
.movefirst

Case 7 'untuk tombol keluar
End

Case 8 'untuk tombol cari
CARI = InputBox("MASUKKAN KODE SUPLIER YANG ANDA CARI")
If CARI <> "" Then
.MoveFirst
.Find "KODE LIKE '" & CARI & "*'"
If .EOF Then
.MoveFirst
MsgBox "MAAF KODE YANG AND MASUKKAN BELUM DISIMPAN"
End If
isi
Else
.Cancel
End If

'untuk memberi keterangan posisi
Text3.Text = DataEnvironment1.rsTBEL_SUPLIER.AbsolutePosition & "/" & DataEnvironment1.rsTBEL_SUPLIER.RecordCount

End Select
End With
End Sub