problemas con el dataadapter.update

[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