Sub getHomeDevices
Dim friendname As String
clv1.Clear <-----------------------------------------Error Here
DB.Initialize(DBFileDir, DBFileName, True)
Dim Cursor1 As Cursor
Cursor1 = DB.ExecQuery("SELECT * FROM trans ORDER BY id")
For i = 0 To Cursor1.RowCount - 1
Cursor1.Position = i
Dim Transactions As Map
Transactions.Initialize
Transactions.Put(1, Cursor1.GetString("id"))
Transactions.Put(2, Cursor1.GetString("deviceid"))
Transactions.Put(3, Cursor1.GetString("lat"))
Transactions.Put(4, Cursor1.GetString("lon"))
Transactions.Put(5, Cursor1.GetString("volts"))
Transactions.Put(6, Cursor1.GetString("msgid"))
Transactions.Put(7, Cursor1.GetString("mysignal"))
Transactions.Put(8, Cursor1.GetString("myspeed"))
Transactions.Put(9, Cursor1.GetString("datetime"))
Transactions.Put(10, Cursor1.GetString("fleet"))
Transactions.Put(11, Cursor1.GetString("friendname"))
Log(Transactions.Get(1))
clv1.Add(CreateListItem(Transactions, clv1.AsView.Width, 80dip), friendname )
Next
Cursor1.Close
End Sub