Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
'This sample uses Form level scope for the open DAO database. 'Depending on your application, you may choose Module level. Private wsDAO As DAO.Workspace Private dbDAO As DAO.Database Private Sub Form_Load() Dim cnn As ADODB.Connection 'ADO has the ability to open row-level locking; DAO does not. 'The following code is used to implement row-level locking in DAO. 'If the database is opened first in row-level locking in ADO, 'subsequent attempts to open the database in ADO and DAO will use the same mode. Set cnn = New ADODB.Connection cnn.Provider = "Microsoft.JET.OLEDB.4.0" cnn.Properties("Data Source") = "C:\MDB\Northwind.mdb" cnn.Properties("Jet OLEDB:Database Locking Mode") = 1 cnn.CursorLocation = adUseServer cnn.Open Set wsDAO = DBEngine.CreateWorkspace("WorkSpace", "Admin", "", dbUseJet) Set dbDAO = wsDAO.OpenDatabase("C:\MDB\Northwind.mdb") 'Close the ADODB connection. cnn.Close Set cnn = Nothing End Sub