select * using VBA

[tariq1]

Hi,

This should hopefully be an easy one...

When running the code below I receive:
'Run-time error '3024':Could not find file 'database5.mdf''



I know I am running this in database5, so dont know what the issue is...

Thank you



Sub select1()

Dim dbs As Database
Dim rst As Recordset
'Opens database 5
Set dbs = OpenDatabase("database5.mdf")
'Selects all records from PALS table
Set rst = dbs.OpenRecordset("SELECT * from Pals;")
'Populate the recordset
rst.MoveLast

dbs.Close
End Sub

[R_Badger]

Try this:

Sub select1()
 
Dim dbs As Database
Dim rst As Recordset
'Opens database 5
Set dbs = currentdb
'Selects all records from PALS table
Set rst = dbs.OpenRecordset("SELECT * from Pals;")
'Populate the recordset
rst.MoveLast
 
dbs.Close
End Sub