Dim selectedItem
        selectedItem = ComboBox_Master.SelectedText
 
        'Datenabfrage
        ' Creating connection and command sting
        conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source=" & _
          Konstanten.dbName & Konstanten.dbPfad
        'sqlStr = "SELECT * FROM tbl_Master"
        sqlStr = "SELECT tbl_Master.Master, tbl_Master_Texte.Master_Titel," & _
          "tbl_Master_Texte.Master_Beschreibung, tbl_Master_Bilder.Bild FROM" & _
          "tbl_Master_Texte INNER JOIN (tbl_Master_Bilder INNER JOIN tbl_Master" & _
          "ON tbl_Master_Bilder.SID_Master = tbl_Master.SID_Master) ON" & _
          "tbl_Master_Texte.SID_Master = tbl_Master_Bilder.SID_Master WHERE (((" & _
          "tbl_Master.Master)=" & selectedItem & "))"
 
        ' Create connection object
        conn = New OleDb.OleDbConnection(conStr)
 
        ' Create data adapter object
        da = New OleDb.OleDbDataAdapter(sqlStr, conn)
 
        ' Create a dataset object and fill with data using data adapter's Fill _
          method
        ds = New DataSet()

da.Fill(ds, "tbl_Master", "tbl_Master_Texte", "tbl_Master_Bilder")
 
        ' Attach dataset's DefaultView to the datagrid control
        dv = ds.Tables("tbl_Temp").DefaultView
        'ListBox1.DataSource = dv
        'ListBox1.DisplayMember = "Master"
        BildName = "Bild"
 
        ListBox_Master_Titel.DataSource = dv
        ListBox_Master_Titel.DisplayMember = "Master_Titel"
 
        ListBox_Master_Beschreibung.DataSource = dv
        ListBox_Master_Beschreibung.DisplayMember = "Master_Beschreibung"