CREATE TABLE Employees
(empid int NOT NULL,
 mgrid int NULL,
 empname varchar( 25 ) NOT NULL,
 salary money NOT NULL,
 lvl int NULL,
 hierarchy varchar( 255 ) NULL,
 CONSTRAINT PK_Employees_empid PRIMARY KEY(empid),
 CONSTRAINT FK_Employees_mgrid_empid
   FOREIGN KEY(mgrid)
   REFERENCES Employees(empid))

Private Sub ОткрытьНаборДень()
    'удалить врем. таблицу, если она существует
    On Error Resume Next
    Dim rs As DAO.Recordset
    CurrentDb.TableDefs.Delete "TempTbd"
    On Error GoTo 0
    Dim TempTbd As DAO.TableDef
    Set TempTbd = CurrentDb.CreateTableDef("TempTbd")
    With TempTbd
        .Fields.Append .CreateField("Начало", dbDate)
        .Fields.Append .CreateField("Окончание", dbDate)
        .Fields.Append .CreateField("Наименование", dbText)
    End With
    CurrentDb.TableDefs.Append TempTbd
    'когда ф-ия вызывается вторично, ошибка происходит здесь
    Set rs = CurrentDb.OpenRecordset( "TempTbd" )
    With rs
        .AddNew
        !Начало = # 6 : 00 : 00  AM#
        !Окончание = # 6 : 45 : 00  AM#
        !Наименование =  "Массаж" 
        .Update
    End With
    Set TempTbd = Nothing
End Sub