Opening a database with app.path

I have tried to open a database with app.path and am getting an error. It looks like it is just looking within the VB folder. Is there something I should know? Here is code:


Dim db As Database
Dim rs As Recordset


Private Sub cmdRun_Click()
Set db = OpenDatabase_ &(App.Path& "\techheadsdatabase_2.mdb")
Set rs = db.OpenRecordset(Customers)
rs.MoveLast
rs.MoveFirst
For i = 1 To rs.RecordCount
picBox.Print db(LastName)
Next i
End Sub

Try this...

Set db = OpenDatabase(App.Path & "\techheadsdatabase_2.mdb")

Keep in mind that App.path is the location of your current project.

AND if that path is in the root drive ( c:) there is already a backslash. (ie "c:\")

app.path will return the path to VB if you haven't saved your project yet.

Good point ScotK