Kod:
Option Explicit
Dim cn As New ADODB.Connection
Private Sub Form_Load( )
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = "Data Source=" & App.path & "\Password.mdb"
cn.Properties("Jet OLEDBatabase Password" ) = "123456"
cn.Open
End Sub