polina,
sql1 = "select * from rst where rst!Name <> "Paul"
Set rst1 = CurrentDb.OpenRecordset(sql1, dbOpenDynaset)
Should be:
sql1 = "select * from YourTable " & _
"where Name <> 'Paul'"
Set rst1 = CurrentDb.OpenRecordset(sql1, dbOpenDynaset)
btw,
Field names should not be Name, Date or other words that
might be reserved.
Wayne