Sub edtQty_EnterPressed
If edtBarcodeData.Text.Trim.Length>0 Then
insertBarcode(edtBarcodeData.Text)
updateProdName(edtBarcodeData.Text,edtQty.Text)
'ShowBarcode
edtBarcodeData.Text=""
edtQty.Text=""
edtBarcodeData.RequestFocus
End If
edtBarcodeData.RequestFocus
End Sub