Dim PROGUSER_SQL = "SELECT distinct PROGUSER FROM TESTDTA.TAETIGKEIT" & _
          "order by PROGUSER"
        Dim cmdPROGUSER As New OleDbCommand(PROGUSER_SQL, OleDbConnection1)
 
        Dim SQL = "SELECT TESTDTA.TAETIGKEIT.PROJEKTNR," & _
          "TESTDTA.TAETIGKEIT.PROJEKTNAME, TESTDTA.TAETIGKEIT.ZEITERFASSUNG," & _
          "TESTDTA.TAETIGKEIT.DATUM, TESTDTA.TAETIGKEIT.KOMMENTAR," & _
          "TESTDTA.TAETIGKEIT.PROGUSER FROM ´TESTDTA.TAETIGKEIT "
        Dim cmd As New OleDbCommand(SQL, OleDbConnection1)
 
        Dim Oleda As New OleDbDataAdapter
 
 
        Dim dt As DataTable
        Dim dv As DataView
 
 
        Try
 
            OleDbConnection1.Open()
 
            DseTaetigkeit.Clear()
            'With Oleda
            Oleda.SelectCommand = cmdPROGUSER
            Oleda.Fill(DseTaetigkeit, "tblUser")
 
            dt = DseTaetigkeit.Tables.Item("tblUser")
            dv = DseTaetigkeit.DefaultViewManager.CreateDataView(dt)
            cboUser.DataSource = dv
 
 
 
            Oleda.SelectCommand = cmd
            Oleda.Fill(DseTaetigkeit, "TAETIGKEIT")
 
 
 
 
 
            grdData.DataSource = DseTaetigkeit.Tables("TAETIGKEIT")
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try
 
        OleDbConnection1.Close()