ник: Lipatov
Эта ошибка появляется когда вы пытаетесь открыть recordset присоединенной таблицы, в этом случае...
Dim Dbs As DAO.Database
Dim RstОстатки As DAO.Recordset
Dim StrSQL As String
Set Dbs = CurrentDb()
StrSQL = "SELECT [Остатки].* FROM [Остатки];"
Set RstОстатки = Dbs.OpenRecordset(StrSQL)
Если нужны дальнейшие пояснения, спрашивайте, постараюсь помочь 