Function DEnd(FieldName As String, DomainName As String, Optional Criteria As _
  Variant)
     Dim MyDB As Database
     Dim MySet As Recordset
     ' Error out if there is no fieldname sent.
     If Len(FieldName) = 0 Then
        MsgBox "You Must Specify a Field name", , "DEnd"
        Exit Function
     End If
     ' Error out if there is no domainname sent.
     If Len(DomainName) = 0 Then
        MsgBox "You Must Specify a Domain name", , "DEnd"
        Exit Function
     End If
     Set MyDB = CurrentDb
     Set MySet = MyDB.OpenRecordset(DomainName, dbOpenDynaset)
     ' Apply a filter to the recordset if a criteria is sent.
     'If Not IsMissing(Criteria) Then
     '   MySet.Filter = Criteria
        'Set MySet = MySet.Open()
     'End If
     ' If there are no records, return the null, else return the value
     ' of the last record.
     If MySet.EOF Then
        DEnd = Null
     Else
        MySet.MoveLast
        DEnd = MySet(FieldName)
     End If
     MySet.Close
     MyDB.Close
End Function