s = "Select Desc From FareTypes Order By Desc"
Try
Dim cur As Cursor = Starter.sql.ExecQuery(s)
If cur.RowCount>0 Then
For i=0 To cur.RowCount-1
cur.Position=i
lft.Add(cur.GetString("Desc"))
clvFareType.AddTextItem(cur.GetString("Desc"), cur.GetString("Desc"), True)
Next
End If
cur.Close
Catch
Msgbox("FareEdit.Activity_Create - " & LastException,"Error")
End Try