Kod:
rs.Open "Select * from [LİSTE] ORDER BY [NO] ASC ;", Baglan, 1, 1
If rs.RecordCount > 0 Then rs.movefirst
Do While Not rs.EOF
x = x + 1
ListView1.ListItems.Add , , rs(0).Value
For k = 1 To 1
If Not IsNull(rs(k).Value) Then
ListView1.ListItems(x).SubItems(k) = rs(k).Value
End If
Next k
rs.MoveNext
Loop