gambas2 ele da erro ao cliclar no botao cadastrar

sabing
(usa Ubuntu)

Enviado em 31/07/2010 - 15:53h

PUBLIC banco AS NEW Connection
PUBLIC dbname AS String

PUBLIC SUB _new()


END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()
DIM info AS Result
banco.Type = "sqlite"
dbname = "/home/sabing/banco.db"
banco.Close()
banco.Name = dbname
banco.Open()
banco.Begin()
info = banco.Create("cadastro")
info!cidade = TextBox2.Text
info!nome = TextBox1.Text
info!telefone = TextBox3.Text
banco.Update()
banco.Commit()
Message.info("Seu registro foi salvo com sucesso")


END

onde eu estou errando pessoal ???