Help with SQL Problem.

[paul]

Hi,
I have a database program that I use SQL to update data. Everything works
fine except sometimes the SQL statement does not get the latest information
without closing the whole program down and bringing it back up. Any Ideas
would be appreciated.
Here is the code I use for the SQL.

Thanks

Private Sub Command1_Click()
rOpenOrders.PrintReport
Dim dbOrderInfo As Database
Dim strSQL As String
Set dbOrderInfo = OpenDatabase("Y:\DataBase\OrderInfo.mdb")
strSQL = "UPDATE Orders SET PartStatus = 'ORDERED' WHERE PartStatus='OPEN'"
dbOrderInfo.Execute strSQL
dbOrderInfo.Close
Set dbOrderInfo = Nothing

Unload PlaceOrders


End Sub