I designed an inventory program to keep track of parts out of a database. I had it working great and used this code to call up the part when the item number box lost focus. Now every time I put in a number the program stops. I changed some of the references that are in the VB5 compiler and I think that may have something to do with it, the code is below. Any help would be greatly appreciated.


Private Sub txtNum_LostFocus()

Dim dbs As Database
Dim inventory As Recordset
Dim wrkDefault As Workspace
Dim temp As Integer
Dim counter As Integer


Set wrkDefault = DBEngine.Workspaces(0)
Set dbs = OpenDatabase("parts.mdb")
Set inventory = _
dbs.OpenRecordset("Inventory", dbOpenDynaset)

OrderByX

Do
If txtNum.Text = inventory!Itemnumber Then

txtNum.Text = inventory!Itemnumber
txtDesc.Text = inventory!Description
txtRetail.Text = inventory!Retail
txtWhole.Text = inventory!Wholesale
txtProfit.Text = inventory!Profit
cmbCompany.Text = inventory!Company
txtQty.Text = inventory!Qty
txtMemo.Text = inventory!MemoBox
counter = counter + 1
Else

inventory.MoveNext

End If

Loop While inventory!Itemnumber <> 1

End Sub