Sub myABBarcode_BarcodeFound (barCode As String, formatName As String)
Dim req As HttpRequest
'Dim job1 As HttpJob
Label1.Text = barCode
mResult = barCode
'ProgressDialogShow("Getting Information")
'ExecuteRemoteQuery("SELECT nomenclature,location, part_number, date_inventoried, quantity, location_detail FROM tblInventory WHERE tblInventory.key = '" & mResult & "'", SCANNED_ITEM)
'req.InitializePost2("http:\\192.168.1.117\INVENTORY.php","action=fetch&ID="&mResult.GetBytes("UTF8"))
req.InitializeGet("http:\\192.168.1.117\Inventory.php?action=fetch&ID="&mResult)
'hc.Execute(req,1)
'job1.Initialize("Job1",Me)
'job1.PostString("http://192.168.1.117/Inventory.php","Activity=fetch&ID="&mResult)
End Sub