Option Compare Database
Option Explicit
Public strgOutPut As String
Public QueryMonth As Variant
Public Function GetGlobal(VariableType As String) As Variant
Select Case VariableType

=DLookUp("[LastName]", "Employees", _
      "[EmployeeID] = Form![EmployeeID]")

SELECT Max(Format([MaxOfShootDate],"mmmm")) AS [Month]
FROM PB3
WITH OWNERACCESS OPTION;

dtRank = DMax("MaxOfShootDate", "PB5")

Set dtRank = (Format("MaxOfShootDate",

Mid(strRank, 3) & "." & "%L%LOpen after 6:00 P.M."

ScoreRankingTotal = Replace(strRank, "%L", ". ")

Function ScoreRankingTotal(ByVal

strRank = Left$(strRank, Len(strRank) - 1)  'Remove Trailing ';'

Function ScoreRankingTotal(ByVal dtRank As Date, ByVal boolRanked As Boolean, Optional intTop As Integer = 0) As String
Dim qdf As QueryDef
Dim rs As Recordset
 
Dim