Sub UpdateSelectedItem
Private Query As String
Private Curs As Cursor
Query = "SELECT DISTINCT Account,Names, Class,Stream,Amount FROM Balances WHERE ID = " & Starter.IDList.Get(Starter.CurrentIndex)
Curs = Starter.SQL1.ExecQuery(Query)
For i = 0 To Curs.RowCount - 1
Curs.Position = i
If Curs.RowCount > 0 Then
'lblSelectedItem.Text = Curs.GetString("Names") & " " & Curs.GetString("Class")& " " & Curs.GetString("Amount")
'Dim SQLQry As String = "DELETE FROM Terms"
'Starter.SQL1.ExecNonQuery(SQLQry)
Account.Text = Curs.GetString("Account")
Classr.Text= Curs.GetString("Class")
kname=Curs.GetString("Names")
End If
Next
End Sub