i takes the current date value and then save it to text1.text
Text1.Text = Format(Now, "m/dd/yyyy")
then i am passing Text1.Text which actually contains date to Sql String which Delets all record that matches the Expiry date.. if current date = expiry date then delete that record..
strSQL = "DELETE * FROM Product WHERE Expiry_Date = '" & Text1.Text & "'"
but it gives error incorrect syntax near the keyword * and some time incorrect syntax near the keyword Delete