Dim dt As DataTable
        Dim dv As DataView
 
        Dim PROGUSER_SQL = "SELECT distinct PROGUSER FROM IBSDTA.TAETIGKEIT" & _
          "order by PROGUSER"
        Dim cmdPROGUSER As New OleDbCommand(PROGUSER_SQL, OleDbConnection1)
 
        Dim Oleda As New OleDbDataAdapter
 
        Oleda.SelectCommand = cmdPROGUSER
 
        Oleda.Fill(DseTaetigkeit, "tblUser")
 
 
 
        dt = DseTaetigkeit.Tables.Item("tblUser")
        dv = DseTaetigkeit.DefaultViewManager.CreateDataView(dt)
 
 
        cboUser.DataSource = dv
 
 
        Dim cm As CurrencyManager = Me.BindingContext(cboUser.DataSource)
        Dim drv As DataRowView = CType(cm.Current, DataRowView)
 
 
 
 
        cboUser.DataSource = dv
        cm.AddNew()
        cboUser.DisplayMember = ("PROGUSER")