Program Freeze :-(

[a_student]

Hello All,

When I use the following code my program freezes and I end up having to terminate vb, any ideas?

Private Sub Form_Load()
    dcCars.Refresh
    'adds cars to list box
    While Not dcCars.Recordset.EOF
        'Only displays cars which aren't on hire
        If dcCars.Recordset("OnHire") = "No" Then
            lstCars.AddItem (dcCars.Recordset("Reg"))
            dcCars.Recordset.MoveNext
        End If
    Wend
End Sub

Thanks!