Private Sub FILL_ListView()ConnectListView1.ListItems.ClearDim n, m, ct As IntegerDim sql As Stringsql = "select * from ygb order by bh"rs.Open sql, cnct = rs.Fields.Count - 1If rs.BOF = False Then
rs.MoveFirst
m = 1
While rs.EOF = False
ListView1.ListItems.Add , , m
Li...