Program Freeze :-(

Hello All,

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

VB Code:

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!

Move the MOVENEXT to outside the if block...

Code:

---


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"))
           
        End If

      dcCars.Recordset.MoveNext

    Wend
End Sub

---

move dcCars.Recordset.MoveNext to after the End If

Thanks alot, I would normally have seen that, I guess you start to miss things after 8 hours or programming :-)


Thanks again!