And If I want to create a Public Function?
Public Function fc_p()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("YourTableName")
Dim strSQL As String
strSQL = "Select x_date, Nz(DMin("x_date", "YourTableName", "x_date > #" & Format$(x_date...