I get the error msg no current record with this, but works from design view of query and sql is similar to sql view in query?????
sql1 = "SELECT * FROM tblAdvPublDates WHERE (((tblAdvPublDates.LastAppear)>=#" & [Forms]![frmReports]![PublDate] & "#))"
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(sql1, dbOpenDynaset, dbSeeChanges)
MsgBox rst(0)
sql1 = "SELECT * FROM tblAdvPublDates WHERE (((tblAdvPublDates.LastAppear)>=#" & [Forms]![frmReports]![PublDate] & "#))"
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(sql1, dbOpenDynaset, dbSeeChanges)
MsgBox rst(0)