Greetings:

I have the following VBA code attempting to open
a table in my ACCESS database:

Sub GetLast30()
Dim wksp As DAO.Workspace
Dim dbs As DAO.Database
Dim rst1 As DAO.Recordset
Dim rng As Range

Set wksp = DAO.CreateWorkspace("wksp", "admin", "", dbUseJet)
Set dbs = wksp.OpenDatabase("TASS Alarms.mdb")
Set rst1 = dbs.OpenRecordset("tblAlarmsCook")