1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
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
А такой метод не подойдёт?
У меня он прекрасно заполняет combo.
