cbPos4.DataSource = ds.Tables(0).DefaultView.ToTable(True, {"POS4"})
            cbPos4.DisplayMember = "POS4"
            cbPos4.SelectedItem = Nothing
            AddHandler cbPos4.SelectedValueChanged, AddressOf _
              cbPos4_SelectedIndexChanged
            If m_Pos4 = "" Then
                cbPos4.DroppedDown = True
                cbPos4.Focus()
            Else
                cbPos4.SelectedItem = m_Pos4
            End If