Put a breakpoint after those lines and will see your quotes are in the wrong place.

Me.Discharged_.Value = 0

Evaluates to True or False. If discharged is a number then you...

Shouldn't this

"insert into Artistas (nome_cd)" + "values(sNomCD)"

be

"insert into Artistas (nome_cd) values('" + sNomCD + "')"

You are inserting the string sNomCD and not the contents of that variable and it...

I think he/she has two tables with autonumbers and another one using these numbers to relate the records. Which is why it's a bit crucial to keep the...

You need to replace a single quote with a double one. How you do this depends on the language you are using, but Replace works fine in VB.