Dim conn As New System.Data.OleDb.OleDbConnection()
        Dim obCmd As New System.Data.OleDb.OleDbCommand
        Dim obCmd2 As New System.Data.OleDb.OleDbCommand
 
        conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data" & _
          "source=" & "Pfad"
        conn.Open()
 
        stsql = "Select * from lag_bestand WHERE palette='" & palette & "'"
        obCmd = New System.Data.OleDb.OleDbCommand(stsql, conn)
        Dim obRd As System.Data.OleDb.OleDbDataReader = obCmd.ExecuteReader()
        'colz = obRd.
 
        'For z = 1 To colz
        Do While obRd.Read()
 
            col_artnr.Add(obRd.Item("artnr"), i)
            col_palette.Add(obRd.Item("palette"), i)
            col_menge.Add(obRd.Item("menge"), i)
            col_id.Add(obRd.Item("id"), i)
            ListBox1.Items.Add(obRd.Item("artnr"))
            i = i + 1
            'Next
        Loop