مشکل دیتابیس

[mkabir 186]

سلام دوستان

من میخام یه برنامه پیامکی بسازم پنلشو با اسکرول ویو درست کردکو الان وقتی میخام تو لیبل چیزی از دیتابیس لود کنم خطا میده تد برنامه هیچی نمیاره اینم کدهام لطفا کمکم کنید:

    Dim sql1 As SQL
Dim cur As Cursor
Dim zirdfa(20) As String
File.Copy(File.DirAssets,"bb.db",File.DirInternal,"bb.db")
sql1.Initialize(File.DirInternal,"bb.db",True)
cur = sql1.ExecQuery("SELECT * FROM kart")
For i= 0 To cur.RowCount -1
cur.Position=i
zirdfa=Array As String(cur.GetString("zirdastefa"))
Next 

ScrollView1.Panel.Height=8000

Dim b As Int
b=0

For i=0 To 19
Dim pp As Panel
pp.Initialize("")
ScrollView1.Panel.AddView(pp,0,b,100%x,400dip)
b=b+410
pp.LoadLayout("p1")
Label1.Text=zirdfa(i)
Next