Si te he entendido bien, lo que quieres es cargar el ListView solo con los registros que tengan el campo como activo. Para hecrlo solo tendrías que añadir la condición
If drw.Item("campo")="Activo" then ' No se el nombre ni el tipo del campo
objListItem = lstDatos.Items.Add(drw.Item("Cod_Empleado").ToString, 0)objListItem.SubItems.Add(drw.Item("Nombre").ToString)
....
End If
Saludos, Javier J