Dim del As Map
del = DBUtils.ExecuteMap(SQLLite, "SELECT del_pk FROM DeliveryHistory WHERE del_rndfk = ? AND del_scancode = 1", Array As String(rndpk))
If del = Null Then
lblStatus.Visible = False
btnLoad.Visible = True
Else
lblStatus.Visible = True
btnLoad.Visible = False
End If