Error con Apostrofes VB.Net

[mrprogman]

Tengo el siguiente codigo...cuando meto un trato de ingresar un registro con un apostrofe por decir algo (sonny's,rubens's, etc,etc) me marca el siguiente error:

-------------------------------------------------------------------------
Error de sintaxis (falta operador) en la expresión de consulta ''LARREA'S ', 'Registrado ', '9:56:03 AM ')'.
-------------------------------------------------------

este es mi codigo, ya lo revise y aparentemente todo esta bien..si acaso lo que noto es que a la hora de ingresar los datos corro la aplicacion y la sintaxis del query muestra los caracteres diferentes, como les comento ya revise el codigo y veo todo bien...no se que se me estara pasando...Gracias por sus respuestas

''LARREA'S '

..los operadores los esta poniendo

Dim Cmd As OleDbCommand
Dim SQL As String
Dim objCmd As New OleDbCommand
Dim Con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\xyz\Expo2012A.mdb;Persist Security Info=False;")
SQL = "Insert into Registrados (numgafete,telefono,numcliente,nombre,direccion,em ail,empresa,Registrado,Hora) values ( '" & TextBox1.Text & " ', '" & TextBox2.Text & " ', '" & TextBox3.Text & " ', '" & TextBox4.Text & " ', '" & TextBox5.Text & " ', '" & TextBox6.Text & " ', '" & TextBox7.Text & " ', '" & Label9.Text & " ', '" & Label12.Text & " ')"
Cmd = New OleDbCommand(SQL, Con)
Con.Open()
objCmd = New OleDbCommand(SQL, Con)
objCmd.ExecuteNonQuery()
Con.Close()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""

[Aquaventus]

Hola mrprogman, de hecho que te sale error, ya que estas juntando strings... y sabes que el " ' " lo que hace es abrir ó cerrar una cadena en SQL, lo que podrías hacer es pasarle parámetro a tu OleDBCommand... :
Cambias tu query

Código vb:

SQL = "Insert into Registrados (numgafete,telefono,numcliente,nombre,direccion,em ail,empresa,Registrado,Hora) values (@numgafete,@telefono,@numcliente, @nombre, @direccion,@email,@empresa,@registrado,@hora)"
 

Y tu OleDBCommand recibe esos parametros, indicas el tipo de variable y la longitud:

Código vb:

objCmd .Parameters.Add(new OleDbParameter("@numgafete", OleDbType.VarChar, 20));
objCmd .Parameters["@numgafete"].Direction = ParameterDirection.Input;
objCmd .Parameters["@numgafete"].Value = TextBox1.Text;
 

Este segundo paso repites para cada parametro. Saludos!.

[mrprogman]

Lo voy a checar y luego te comento...gracias por tu respuesta

[Aquaventus]

Hola mrprogman, ahora que reviso bien el código que te dejé esta en C#.. bueno para VB no cambia mucho... solo le quitas el ";" y el "[ ]" lo reemplazas por el "( )". Saludos!.