Setelah kita melihat contoh aplikasi program penerimaan siswa baru sekolah mengemudi menggunakan visual basic 6.0, selanjutnya kita akan membuat form Riwayat Login.
Pertama-tama buat terlebih dahulu formnya seperti dibawah ini, juga beri name masing-masing :

1. Buatlah Sub baru dengan nama Sub tampil () dan pastekan kode berikut :
 Call koneksi
 rsdatalogin.Open "select*from riwayatlogin", KON
 Set grid.DataSource = rsdatalogin

2. Buatlah Sub baru dengan nama Sub aktifadmin() dan pastekan kode berikut :
fmenu.mlog.Enabled = True
fmenu.mganti.Enabled = True
    fmenu.mdata.Enabled = True
    fmenu.mdatauser.Enabled = True
    fmenu.mdatabiaya.Enabled = True
    fmenu.mdatasiswa.Enabled = False
    fmenu.mriwayat.Enabled = True
    fmenu.mlogout.Enabled = True
    fmenu.mloguser.Enabled = False
    fmenu.mmobil.Enabled = True
    fmenu.mjam.Enabled = True

3. Buatlah form_load() dan pastekan kode berikut :
thapusall.Enabled = False
Me.Width = 13425
Me.Height = 7110
Me.Left = 100
Me.Top = 0

4. Klik pada clihat dan pastekan kode berikut (deklarasi=click):
Call tampil
thapusall.Enabled = True

5. Klik pada bmenu dan pastekan kode berikut (deklarasi=click):
a = MsgBox("Yakin Untuk Menutup Form Ini Dan kembali ke Menu Utama ?", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
friwayat.Hide
Call aktifadmin
End If

6. Klik pada thapusall dan pastekan kode berikut (deklarasi=click):
Call koneksi
a = MsgBox("Yakin Untuk Menghapus semua Riwayat Login ?", vbCritical + vbYesNo, "INFO")
If a = vbYes Then
rsdatalogin.Open "TRUNCATE TABLE riwayatlogin", KON
Call tampil
End If