Function Smalldate()
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
strSQL = "SELECT Min(qryDate.AccessDate) as DateX FROM qryDate;"
Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL)
rs.MoveFirst
Smalldate = rs!dateX
Set db = Nothing
Set rs = Nothing
End Function