Hi Niya

Recordset is o.k

rstitem.Open "SELECT * FROM itemmaster ORDER BY val(Mid(icode,2,len(icode) - 1))", cnn1, adOpenStatic, adLockOptimistic

But in Listview it is not displaying as per recordset


Dim itmX As ListItem
Dim intcount As Integer

lvwitem.ListItems.Clear
For intcount = 0 To rstitem.RecordCount - 1
Set itmX = lvwitem.ListItems.Add(, "A" & rstitem("icode"))
itmX.Text = rstitem("icode")
itmX.SubItems(1) = rstitem("idesc")
rstitem.MoveNext
Next intcount
If rstitem.RecordCount > 0 Then
rstitem.MoveFirst
End If


Thanks