ERRO AO INSERIR DADOS

USUARIO.EXCLUIDOS 21/12/2006 14:49:00
#191510
podem me ajudar ÂÂÂ'qual será o erro do meu código??

Erro: Line 1: Incorrect Syntax near 'fdfd)'


Dim tp_desp, nome_conta, sql As String
Dim cnn As SqlConnection
Dim cmd As SqlCommand
Try
sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & ")'"
cnn = New SqlConnection("Data Source=SILAS;" & _
"Initial Catalog = pessoa; " & _
"Integrated Security = SSPI")

cnn.Open()
cmd = New SqlCommand(sql, cnn)
cmd.ExecuteNonQuery()
MessageBox.Show("Registro Salvo")
Catch ex As Exception
MsgBox(" Erro : " & ex.Message)

End Try
cnn.Dispose()
cnn.Close()
limpa()




End Sub
ALMARTI 21/12/2006 15:54:46
#191531
Tem uma aspa em um local incorreto, depois do parentese

sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & ")'"

troque por

sql = "insert into despesa (tp_desp,nome_desp)"
sql = sql & "values('" & cbt.SelectedItem & "','" & txtconta.Text & "')"

Outra coisa:
Dim tp_desp, nome_conta, sql As String
tem certeza que todas as variáveis ficaram com o tipo String?
USUARIO.EXCLUIDOS 21/12/2006 16:21:20
#191534
O erro é no cmd.executenonquery
ALMARTI 21/12/2006 16:23:32
#191535
Pois é, se verificar bem no final de sua sql está

txtconta.Text & " ) ' "

e o correto seria


txtconta.Text & " ' ) "


Tópico encerrado , respostas não são mais permitidas