Sub btnm1_Click
dbSQL.ExecNonQuery2("INSERT INTO field1 VALUES (?)", Array As String(txtmenu.Text & " - " & "Euro" & " " & txtcaricoeuro.Text))
spm1.Add (txtmenu.Text & " " & "Euro" & " " & txtcaricoeuro.Text)
txtcaricoeuro.Text="" ' pulisco la casella di testo txtcaricoeuro.text
dbCursor.Close
Msgbox("item added","stored")
txtmenu.Text=""
phone1.HideKeyboard(Activity)
txtcaricoeuro.Text=0
End Sub