Private Sub Form_Close()
   Dim strSQL As String
   Dim db As Database
   Set db = CurrentDb
        DoCmd.SetWarnings False
            strSQL = "DELETE * FROM SANDIK;"
            db.Execute strSQL
        DoCmd.SetWarnings True
        Set db = Nothing
End Sub