Código
El error me lo marca en la ultima Linea.
Private parqueaderoDataset As DataSet Public propietariosTableadapter As OleDbDataAdapter Private miconexion As OleDbConnection Private cadenadeconexion As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cadenadeconexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\Luis\Mis documentos\RegistroFemicidio.accdb" miconexion = New OleDbConnection(cadenadeconexion) propietariosTableadapter = New OleDbDataAdapter propietariosTableadapter.SelectCommand = New OleDbCommand("SELECT * FROM PropietariosTableadapter", miconexion) parqueaderoDataset = New DataSet parqueaderoDataset.Tables.Add("PropietariosTableadapter") propietariosTableadapter.Fill(parqueaderoDataset.Tables("PropietariosTableadapter")) DataGridView1.DataSource = parqueaderoDataset.Tables("PropietariosTableadapter") End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim nuevafila As DataRow nuevafila = parqueaderoDataset.Tables("PropietariosTableadapter").NewRow nuevafila("Numero de Expediente") = 352 nuevafila("Nombre de La Victima") = "Lupita" nuevafila("Apellido(s)") = "Lupita" nuevafila("Edad") = 12 nuevafila("Fiscalia Distrital") = "Lupita" nuevafila("Fiscalia Municipal") = "Lupita" nuevafila("Fiscalia de sección") = "Lupita" nuevafila("Oficio de Reiteracion") = 1 nuevafila("Oficio a Supervision") = 122 nuevafila("Observaciones") = "Lupita" nuevafila("Fiscal Responsable") = "Lupita" nuevafila("Tipo de Delito") = "Lupita" parqueaderoDataset.Tables("PropietariosTableadapter").Rows.Add(nuevafila) propietariosTableadapter.InsertCommand = New OleDbCommand propietariosTableadapter.InsertCommand.Connection = miconexion propietariosTableadapter.InsertCommand.CommandText = "INSERT INTO PropietariosTableadapter(Numero de Expediente, Nombre de La Victima, Apellido(s), Edad, Fiscalia Distrital, Fiscalia Municipal, Fiscalia de sección, Oficio de Reiteracion, Oficio a Supervision, Observaciones, Fiscal Responsable, Tipo de Delito) VALUES (@numeroexpediente,@nombredelavictima,@apellidos,@edad,@fiscaliadistrital,@fiscaliamunicipal,@fiscaliadeseccion,@oficioreiteracion,@oficiosupervision,@observaciones,@fiscaliresponsable,@tipodedelito)" propietariosTableadapter.InsertCommand.Parameters.Add("@numeroexpediente", OleDbType.BigInt, 12, "Numero de Expediente") propietariosTableadapter.InsertCommand.Parameters.Add("@nombredelavictima", OleDbType.VarChar, 12, "Nombre de La Victima") propietariosTableadapter.InsertCommand.Parameters.Add("@apellidos", OleDbType.VarChar, 12, "Apellido(s)") propietariosTableadapter.InsertCommand.Parameters.Add("@edad", OleDbType.BigInt, 12, "Edad") propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliadistrital", OleDbType.VarChar, 12, "Fiscalia Distrital") propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliamunicipal", OleDbType.VarChar, 12, "Fiscalia Municipal") propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliadeseccion", OleDbType.VarChar, 12, "Fiscalia de sección") propietariosTableadapter.InsertCommand.Parameters.Add("@oficioreiteracion", OleDbType.BigInt, 12, "Oficio de Reiteracion") propietariosTableadapter.InsertCommand.Parameters.Add("@oficiosupervision", OleDbType.BigInt, 12, "Oficio a Supervision") propietariosTableadapter.InsertCommand.Parameters.Add("@observaciones", OleDbType.VarChar, 12, "Observaciones") propietariosTableadapter.InsertCommand.Parameters.Add("@fiscaliresponsable", OleDbType.VarChar, 12, "Fiscali Responsable") propietariosTableadapter.InsertCommand.Parameters.Add("@tipodedelito", OleDbType.VarChar, 12, "Tipo de Delito") propietariosTableadapter.Update(parqueaderoDataset.Tables("PropietariosTableadapter"))