Dim dispositionPK As String
If chkDelivered.Checked = False Then
dispositionPK = dispositionMap.Get(spnDisposition.SelectedItem)
Else
dispositionPK = Null
End If
m.Put("del_dspfk", dispositionPK)
DBUtils.InsertMaps(SQLLite, "DeliveryHistory", ListOfMaps)