مشکل در درج متن ها و اسپینرها

[vahid_2231 6]

سلام من 3 تا اسپینر داخل برنامه گداشتم و میخوام کاربر وقتی از داخل اون اسپینرها گرینه ای انتخاب میکنه و دکمه دخیره رو میزنه اون چیرهایی که انتخاب کرده و اون متنی که داخل تکس مینویسه داخل دیتابیس ذخیره بشه ولی این خطا رو برام برمیگردونه کد داخل برنامه هم این هستش ممنون میشم کمک کنید .

Sub Process_Globals

Dim s As SQL

Dim cu As Cursor

Dim i As Int

End Sub

Sub Activity_Create(FirstTime As Boolean(

( "Activity.LoadLayout("lay1

If File.Exists(File.DirInternal,"ezafee.db")=False Then

File.Copy(File.DirAssets,"ezafee.db",File.DirInternal,"ezafee.db")

End If

s.Initialize(File.DirInternal,"ezafee.db",False)

s.BeginTransaction

s.TransactionSuccessful

s.EndTransaction

Sub Button1_Click

s.ExecNonQuery(" INSERT INTO tblm(?,?,?,?) VALUES('"&sal.SelectedItem&"','"&mont.SelectedItem&"','"&day.SelectedItem&"','"&matn.Text&"')")

ToastMessageShow("با موفقیت ثبت شد",False)

cu.Close

End Sub

End Sub