private Sub updateclienti
listacl.Clear
n=0
Dim Query As String
Dim ResultSet1 As ResultSet
SQL1.Initialize(SQLDataBasePath, nomedbcl, True)
Query = "SELECT * FROM clienti"
ResultSet1 = SQL1.ExecQuery("select * from clienti")
Do While ResultSet1.NextRow
n=n+1
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, listacl.AsView.Width, 30dip)
p.LoadLayout("itemcl")
label1.Text= ResultSet1.GetString("nome")
label2.Text = ResultSet1.GetString("danapet")
label3.Text= ResultSet1.GetString("cell")
label4.Text= ResultSet1.GetString("idcl")
listacl.Add(p, Null)
Loop
label16.Text= n
ResultSet1.Close
End Sub