Assigned a System resource to an image based on variable
this should be written once like this:

private sub whatever(byref res As Bitmap)
  If CurrentRecord(iStatusCol) = "Scheduled" Then
      MapIcon = New Bitmap(res)
  ElseIf CurrentRecord(iStatusCol) = "Tentatively Scheduled" Then
      MapIcon = New Bitmap(res)
  End If
end sub


and 

Select Case CurrentRecord(iAssignedToCol)
    Case "Al B. Connor"
         whatever(My.Resources.Scheduled_ABC)
    Case "Donald E. Firestone"
         whatever(My.Resources.Scheduled_DEF)
    Case....


Hope you get my point..