OleDbConnection1.Open()

        Dim reader As System.Data.OleDb.OleDbDataReader = OleDbCommand1.ExecuteReader



        While reader.Read

            If Box1.Items.Contains(reader.Item("Talrunis")) = False Then Box1.Items.Add(reader.Item("Talrunis"))

            If Box2.Items.Contains(reader.Item("Lietotaja_ID")) = False Then Box2.Items.Add(reader.Item("Lietotaja_ID"))

            If Box3.Items.Contains(reader.Item("LI_No")) = False Then Box3.Items.Add(reader.Item("LI_No"))

        End While