Public Function GetCounterRecID(aCNum As Long, aDate As Date) As Long
  With New ADODB.Command
    .CommandText = "dbo.p_CN_Date_To_CntID"
    .CommandType = adCmdStoredProc
    .ActiveConnection = CurrentProject.Connection
    .Parameters.Append .CreateParameter("@ControllerN", adInteger, adParamInput, , aCNum)
    .Parameters.Append .CreateParameter("@Date", adDate, adParamInput, , aDate)
    On Error Resume Next
    With .Execute
      If Err.Number <>  0  Then Utils.ErrMsg Err, "CounterRecExists"
      On Error GoTo  0 
      If Not .EOF Then
        GetCounterRecID = Nz(.Fields("ID"),  0 )
      End If
    End With
  End With
End Function