Menghilangkan Password Database Dengan Visual Basic

Sebagai contoh buatlah sebuah File Database Ms. Access dengan nama test.mdb dan password 120021, yang nantinya akan kita hilang password tersebut dengan menggunakan coding Visual Basic.
langkah – langkah persiapan
- Tambah References Microsoft DAO 3.6 Object Library pada project Sobat
Kemudian tempat coding dibawah ini pada Form atau pada Module Project

Public Sub CLearDatabasePassword()
On Error GoTo Salah
Dim DtBase As Database
Set DtBase = OpenDatabase(App.path & "\test.mdb", True, False, ";pwd=123456")
DtBase.NewPassword "123456", ""
DtBase.Close
Exit Sub
Salah:
If Err.Number <> 0 Then
MsgBox Err.Description & vbCrLf & Err.Source, , "Error"
End
End If
End Sub

* Catatan file Ms. Access (test.mdb) harus satu folder dengan Aplikasi (Project)
   sesuaikan nama databasenya diatas sebagai contoh nama databasenya test.mdb

Sekarang sobat tinggal memanggil fungsi diatas pada form sintax nya seperti ini Call CLearDatabasePassword kalau tidak ada aral melintang maka password database tersebut akan kabur (hahahaha .. kekekeke). Mudah – mudahan tutorial singkat ini ada mamfaatnya bagi sobat-sobat semua.