Public Sub DataEnvironment_Initialize()
    connItems = Split(DataEnvironment1.ArtikelNachHersteller.ConnectionString, _
      ";")
    For I = LBound(connItems) To UBound(connItems)
        If connItems(I) Like "Data Source*" Then
            connItems(I) = "Data Source=" & App.Path + "\DB\KAD.mdb"
            Exit For
        End If
    Next
    DataEnvironment1.ArtikelNachHersteller.ConnectionString = Join(connItems, _
      ";")
 
    With DataEnvironment1.Commands("ArtikelPrintHersteller")
        .CommandText = "SELECT Artikel.Artikel_Nr, Artikel.Artikel_Name, " & _
                        "Hersteller.Hersteller_Name, (Artikel.Artikel_VK + '" & _
                        "€') AS Artikel_VK, " & _
                        "(Artikel.Artikel_Angebot + ' €') AS Artikel_Angebot, " _
                        & _
                        "Artikel.Artikel_ID, Artikel.Artikel_WG_Nr FROM" & _
                        "Artikel, Hersteller " & _
                        "WHERE Artikel.Artikel_Hersteller_Nr =" & _
                        "Hersteller.Hersteller_nr and " & _
                        "Hersteller.Hersteller_Name = " & _
                        "'" & Trim(ArtikelListing.HerstellerAuswahl.Text) & " '"
        .CommandType = adCmdText
        .Execute
    End With
End Sub