Sub btnAddList_Click
Dim cur As Cursor
Dim cusrsExist As Cursor
Dim getItem As String
Dim list_add As List
Dim listId As Int
list_add.Initialize
cur=Calculation.Sqlcnn.ExecQuery("Select reason from tbl_reason")
For i=0 To cur.RowCount-1
cur.Position=i
list_add.Add(cur.GetString("reason"))
Next
cur.Close
listId=InputList(list_add,"Select An Item",1)
getItem=list_add.get(listId)
cusrsExist = Calculation.Sqlcnn.ExecQuery2("SELECT items FROM tbl_listing WHERE items = ?", Array As String(getItem))
cusrsExist.Position=0
Dim strExist As String
strExist= cusrsExist.GetString("items") ' Error:CursorIndex OutofBountException
If strExist = "" Then
Calculation.Sqlcnn.ExecNonQuery2("insert into tbl_listing(items)values(?)",Array As String(getItem))
End If