Dim Conn1 As New ADODB.Connection
        Dim Cmd1 As New ADODB.Command
        Dim Rs2 As New ADODB.Recordset
        Conn1.Open(My.Settings.dbname, My.Settings.dbuser, My.Settings.dbpass)

Rs2 = Conn1.Execute("SELECT * FROM POS_Artikel")

Preis = rs2("Preis").Value

Preis1 = rs2("Preis1").Value
Preis2 = rs2("Preis2").Value
Preis3 = rs2("Preis3").Value
Preis4 = rs2("Preis4").Value
Preis5 = rs2("Preis5").Value
Preis6 = rs2("Preis6").Value