Koneksi VB ke Ms. Access Berpassword

Koneksi VB ke Ms. Accsess yang Berpassword

Kerahasiaan Database amat sangatlah penting dilakukan untuk menghindari dari ulah-ulah iseng atau bahkan sengaja dari orang-orang yang tak bertanggung jawab, untuk itulah database harus dipasang pengaman salah satu dan mudah digunakan adalah dengan memasang password pada database.

Berikut adalah contoh dengan menggunakan Ms. Access yang berpassword, dan adapun cara koneksi VB ke Access adalah
sebagai berikut: 

1. Private Sub Form_Load()
      Dim Conn As ADODB.Connection
      Dim RS As ADODB.Recordset
      Set Conn = Nothing
      Set Conn = New Connection
      Conn.CursorLocation = adUseClient
      Conn.Open "PROVIDER= microsoft.jet.oledb.4.0;Data Source=" & App.Path &
      "\db1.mdb;Jet OLEDB:Database Password=rahasia; "
      Set RS = New Recordset
     RS.Open "table1", Conn
    Set DataGrid1.DataSource = RS.DataSource
End Sub 

2. Selamat Mencoba