Access VBA code

I've got a vba code that looks like qCount = GetQueryCount3B Do Until qCount = 0 Forms("UpdateStatusForm").Controls("status3").Value = qCount & "Used Left" Forms("UpdateStatusForm").Repaint [login to view URL] "A0315-03B Add 0315All New into InventorySuppliers", acViewNormal, acEdit qCount = GetQueryCount3B DoEvents Loop and then below the count looks like Public Function GetQueryCount3B() As Long [login to view URL] = 0 Dim rst As [login to view URL] Dim sql As String sql = "SELECT COUNT(*) AS total FROM Boyd0315All WHERE (NOT (EAN + 'U1' IN " _ & "(SELECT LocalSKU FROM InventorySuppliers WHERE (SupplierID = 315))))" Set rst = [login to view URL](sql) With rst If Not .EOF Then GetQueryCount3B = .Fields(0).Value End If .Close End With Set rst = Nothing End Function The program goes to the botton section Set rst =.... and it freezes up.. I dont see a need to set the rst, I just want the program to do a count, and if the count is >0 the run the query. I also need it to be in a loop because the update only does 1000 items at a time. Should be a quick fix for someone who knows coding.