Access Report

[joevb84]

Hi everybody

I am trying to get a report of ms access database(mdb database).

Private cn As ADODB.Connection
 
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim acc As Object
Set acc = CreateObject("Access.Application")
Dim strDbName As String
strDbName = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & App.Path & "\Pharmacy OP Ver 1.0.0.mdb "
acc.OpenCurrentDatabase strDbName
acc.DoCmd.OpenReport RptstaffDed, acViewPreview
End Sub

I am trying to connect it, but there is an error that comes
"Microsoft Access can't open the database because it is missing or opened exclusively by another user, or it is not an ADP file.

Can somebody point out my mistakes

Please Help

[TheUsed]

Reread the error message...

I would say that you need to close all instances of the DB. even if it's not visible... so goto Taskmanager and end the msaccess process.

[brucevde]

You are trying to use ADO specific code against the Access Automation Server.

The first argument to the OpenCurrentDatabase method is simply the path to the database. Don't specify Provider.

The Provider is only required when you are connecting to a database thru ADO.

Dim strDbName As String
strDbName = App.Path & "\Pharmacy OP Ver 1.0.0.mdb "
acc.OpenCurrentDatabase strDbName