cmd = SQL1.ExecQuery("SELECT * FROM T where Title like '" & Main.CLV1Value &"'" )
CLV1.Clear
For i = 0 To cmd.RowCount -1
cmd.Position = i
'CLV1.GetBase.SetBitmap(bmp)
Content= cmd.GetString("Content")
FootNote= cmd.GetString("FootNote")
Id=cmd.GetInt("Id")
CLV1.AddTextItem(Content ,Id)
'
Next