This works for me:

Private Sub cboPlant_Change()
cboUnit.ListIndex = -1
Select Case cboPlant.Value
Case "Clark"
cboUnit.RowSource = "Clark"
Case "Lenzie"
cboUnit.RowSource = "Lenzie"
End Select
End Sub