Cara Menghilangkan Password Database

Cara Menghilangkan Password Database,itulah topik yang akan saya bahas pada potingan kali ini
Dan berikut langkah-langkahnya:

Buatlah sebuah File Database Ms. Access dengan nama test.mdb dan password 123321, yang nantinya akan kita hilang password tersebut dengan menggunakan codingnya

* Tambah References Microsoft DAO 3.6 Object Library pada project Sobat

dan ketikan code di bawah ini pada form

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


*Penting file Ms. Access (test.mdd) harus satu folder dengan Aplikasi (Project)

Sekarang anda tinggal memanggil fungsi diatas pada form sintax nya seperti ini Call CLearDatabasePassword
maka database akan Hilang...
Salam dari Saya