referenties to Access 9.0 Object Library
Public appAccess As New Access.Application
Global strPath As String
Global strAccessFile As String
Global sTmp As String
Global sTable As String
Global Destination As String
Dim password As String
password = "edderic"
Dim db As DAO.Database
Rem ** Bepalen van de locatie van de applicatie
strPath = IIf(Right$(App.Path, 1) <> "\", App.Path & "\", App.Path)
strAccessFile = "Scriptie01.mdb"
Set db = appAccess.DBEngine.OpenDatabase(strPath & strAccessFile, False, False, "MS Access;pwd=" & password)
appAccess.OpenCurrentDatabase strPath & strAccessFile
Set db = Nothing
appAccess.DoCmd.OpenForm "Switchboard"
Rem ** ACCESS ZICHTBAAR MAKEN
appAccess.Visible = True
Its open a database with a password and a Switchboard
Eric De Decker
vbg.be@vbgroup.nl
License And Copy Protection AxtiveX.
Download Demo version on my Site: