VBA code open access database

[jakobt]

My access database does not open. Any clue why? I have put refence to Microsoft activeX data objects 6.1 Library. I use Microsoft access 2016:

sub copydata()
dim accessdb as adodb.connection
dim accessdata as adodb.recordset

set accessdb = new adodb.connection
set accessdata = new adodb.recordset

accessdb.connectionstring = "provider=Microsoft.ace.oledb.12.0;Data source= s:\smart.accdb"
accessdb.open

end sub

 

[xenou]

Hi,
ADO is not a way to open a database, it rather is a way to connect to a database. So basically it is invisible and happens only in code or, as some would say, programmatically. Basically once you open a connection with ADO you have to do something with the connection - select data, update data, delete data, or insert data. With more code

 

[Trevor G]

Option you could try is using a Shell command, example below:

Sub DBOpen()
Dim retval As String
Dim Filename As Variant
Filename = "s:\smart.accdb"
retval = Shell("msaccess.exe " & Filename, vbNormalFocus)
End Sub