OpenDatabase Function Example

This example opens the BIBLIO.MDB database for exclusive use.

Dim MyDB As Database
Set MyDB = OpenDatabase("C:\VB\BIBLIO.MDB", True, False)

This example opens an ODBC database and supplies additional login information.

Dim MyDB As Database
Set MyDB = OpenDatabase("", False, False, "ODBC; DSN=MyServer; UID=sa")