ALTER PROCEDURE dbo.usp_Session_insInTable
(@пДатаСдачи smalldatetime,
@fkSes bigint)
AS INSERT INTO dbo.tDataSession
                      (fkDateSdachi, fkSession)
VALUES     (@пДатаСдачи, @fkSes)

  Dim cmd As ADODB.Command 
 Set cmd = New ADODB.Command
     With cmd
        .ActiveConnection = CurrentProject.Connection
        .CommandText =  "dbo.usp_Session_insInTable" 
        .CommandType = adCmdStoredProc
        .CreateParameter  "пДатаСдачи" , adsmallDateTime, , , Me.пДатаСдачи)
        .CreateParameter  "fkSes" , adBigInt, , , Me.fkSes
        .Execute , , adExecuteNoRecords
     End With