ارتباط با دیتابیس آفلاین

سلام دوستان خداقوت
من دو تا صفحه ایجاد کردم که صفحه اول تماس با ما هست
در این صفحه آیکونی قرار دادم به شکل پیامک که کاربر با زدن روی اون وارد صفحه دوم میشه و میتونه پیامی رو بنویسه و برای مدیر بفرسته
حالا کدهاشو نوشتم که وقتی طرف روی دکمه ارسال (btnbossok1) کلیک کرد، محتویات تکست باتن مربوطه وارد دیتابیس بشه
اما این اتفاق با کدهایی که نوشتم نمی افته و ممنون میشم کدهامو بررسی کنید تا ایرادم رو بفرمایید.

Activity.LoadLayout("lpm1")

' If File.Exists(File.DirInternal,"misaqmaindb.db")=False Then
File.Copy(File.DirAssets,"misaqmaindb.db",File.DirInternal,"misaqmaindb.db")
' End If

' If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal,"misaqmaindb.db",False)
' End If
cr1=sql1.ExecQuery("SELECT * FROM tbl1")

For i=0 To cr1.RowCount-1
cr1.Position=i
Log(cr1.GetString("id"))
Log(cr1.GetString("use1"))
Log(cr1.GetString("pass1"))
Log(cr1.GetString("aks1"))
Log(cr1.GetString("pm1"))
Next


Sub btnbossok1_Click
sql1.ExecNonQuery2("insert into tbl1(pm1) values (?)",Array As String (txtbosspm1.Text))
' Msgbox("پیام ارسال شد","")
' txtbosspm1.Text=""
End Sub


دکمه لغو
Sub btnbosscancel1_Click
txtbosspm1.Text=""
End Sub