Public Sub Form_Open()
Dim siCount As Short

Do
  If siCount > 1000 Then Break
  Inc siCount
Loop

Me.Close

End