problemas con el dataadapter.update

[khuzudum]

Hola, lo primero es daros las gracias por el tiempo que me estais dedicando aunque solo sea por leer este tema, gracias.

Estoy realizando un programa que lee un txt y lo transforma en diversas tablas de access, el problema surge cuando intento realizar el dataadapter.update en una tabla que me dice que hay un error de sintaxis en el insert into.
Creo que puede ser por que tengo dos campos en esta tabla que son memo, ya que tengo que guardar un texto muy largo en dichos campos.


Gracias por todo

[khuzudum]

ArchivoDatos = "C:\Documents and Settings\fpiedra\Mis documentos\telefonos.mdb"
CadenaConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ArchivoDatos
Try
cn = New OleDb.OleDbConnection(CadenaConexion)
Catch e As Exception
MessageBox.Show("Error al crear la conexión:" & vbCrLf & e.Message)
Exit Sub
End Try
'
cn.Open()

ds3 = New Data.DataSet

da3 = New OleDb.OleDbDataAdapter("SELECT * FROM Servicios_facturados",cn)

Dim cmb3 As New OleDb.OleDbCommandBuilder(da3)

da3.MissingSchemaAction = MissingSchemaAction.AddWithKey

ds3.Clear()

da3.Fill(ds3, "Servicios_facturados")

ordenar = 0
While control4
If PrimeraLinea = "" Or PrimeraLinea = "resumen servicios facturados (sin impuestos):" Or PrimeraLinea = "conceptos facturados; importe (euros); importes totales (euros)" Then
Else

indice = PrimeraLinea.IndexOfAny(";", 0)
prueba = PrimeraLinea.Substring(indice + 1)

If ordenar = 0 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 1 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 2 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 3 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 4 Then

limpieza_servicios_facturados_1()

ElseIf ordenar = 5 Then

limpieza_servicios_facturados_1()
dr3("cargos") = temporal & "" & prueba

ElseIf ordenar = 6 Then

limpieza_servicios_facturados_2()

ElseIf ordenar = 7 Then

limpieza_servicios_facturados_2()

ElseIf ordenar = 8 Then

limpieza_servicios_facturados_2()

ElseIf ordenar = 9 Then

limpieza_servicios_facturados_2()
dr3("descuentos") = temporal2 & "" & prueba

ElseIf ordenar = 10 Then
dr3("total_exento_IVA") = prueba
ElseIf ordenar = 11 Then
dr3("total_sin_IVA") = prueba
ElseIf ordenar = 12 Then
dr3("IVA(16%)") = prueba
ElseIf ordenar = 13 Then
dr3("total") = prueba
ElseIf ordenar = 14 Then
dr3("Num_telefonos_asociados") = prueba
dr3("mes") = "Marzo"
control4 = False
Try
ds3.Tables("Servicios_facturados").Rows.Add(dr3)
da3.Update(ds3, "Servicios_facturados")
ds3.AcceptChanges()
Catch exc As Exception
MessageBox.Show(exc.Message)
Exit Sub
End Try
End If
ordenar += 1
End If
PrimeraLinea = LineInput(1)
End While

Sub limpieza_servicios_facturados_1()

cajon = prueba
indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)

If limpieza = False Then
temporal = prueba
limpieza = True
Else
temporal = temporal & "" & prueba
End If

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal = temporal & "," & prueba

End Sub

Sub limpieza_servicios_facturados_2()

cajon = prueba
indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)

If limpieza2 = False Then
temporal2 = prueba
limpieza2 = True
Else
temporal2 = temporal2 & "" & prueba
End If

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "" & prueba

indice = cajon.IndexOfAny(";", 0)
prueba = cajon.Substring(0, indice)
cajon = cajon.Substring(indice + 1)
temporal2 = temporal2 & "," & prueba

End Sub

si alguien me puede dar alguna pista lo agradeceria

[khuzudum]

Hola de nuevo a todos
Primero gracias por responderme,y segundo ya he descubierto que era lo que me daba error :

Me daba error por culpa de un campo de la tabla de access que me daba fallo que le habia nombrado como IVA(16%) y el 16% no lo debe de poder coger el sql o el ado por que cuando lo he quitado se ha solucionado el problema.

Gracias de todas formas