散分啦!一个小问题

诸位高手帮忙，我现在编一个通讯录程序，窗口上有两组合框cboCity和cboSex，
一列表框lstName，addr.dat用来保存数据。看下面程序有什么错
Private Sub cboCity_click()
lstName.Clear
Call clearcontrol
Dim ex As comrade
Dim int1 As Long
Open App.Path & "\addr.dat" For Random As #1 Len = Len(ex)
Do While Not EOF(1)
  int1 = int1 + 1
  Get #1, int1, ex
  If (Trim(cboCity.Text) = Trim(ex.strCity) Or Trim(cboCity.Text) = "全部") And _
     (Trim(cboSex.Text) = Trim(ex.strSex) Or Trim(cboSex.Text) = "全部") Then
     lstName.AddItem ex.strName
     lstName.ItemData(lstName.NewIndex) = int1
 
  End If
Loop
Close #1
End Sub