VB6

How do I write the code for a Loop that:
1. Opens a database
2. uses a timer object of 10 secs
3. checks if the DB has been updated (date)
4. checks for duplicate numbers using SQL
5. if yes uses msgbox