Dim db
    Dim rst
    Dim ws
    Dim strSQL
    Dim dbE
 
    Set dbE = CreateObject("DAO.DBEngine.36")
 
    Set ws = dbE.Workspaces(0)
 
    Set db = ws.OpenDatabase("C:\Test.mdb")
 
    strSQL = "SELECT * FROM Table3 WHERE TheDate BETWEEN Date() AND DATEADD('m', 1, Date())"
 
    Set rst = db.OpenRecordset(strSQL)
 
    If rst.RecordCount > 0 Then
 
        MsgBox "Domains going out of date!"
 
    End If
 
    rst.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing
    ws.Close
    Set ws = Nothing
    Set sbe = Nothing

"SELECT TOP 1 TheDate FROM Table3 WHERE TheDate BETWEEN Date() AND DATEADD('m', 1, Date())"