Is there any reason why code1 adds the item "katy but code2 returns the else statement?

Code:
'Code1

dim file as task
Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90
Get #1, 2, file
If file.date = date1.Text Then
List1.AddItem "Katy"

End If

Text1 = file.date
Close #1


'Code2

Dim file As Task

List1.Clear


Open "c:\windows\desktop\database.txt" For Random As 1 Len = 90

For x = 2 To 2

Get #1, x, file
Text1.Text = file.date

If file.date = date1.Text Then
List1.AddItem "katy"
Else
List1.AddItem "darn"

End If

Text2.Text = x

Next

Close #1


'Here's the module

Type Task
Task As String * 30
date As String



Name As String * 30


End Type
[Edited by Bjwbell on 07-11-2000 at 09:16 PM]