Public Sub Form_Open()
Dim siCount As Short
Do
If siCount > 1000 Then Break
Inc siCount
Loop
Me.Close
End