Borrar registro

[andaluz]

Hola a todos, quiero borrar un registro de la base de datos, pero me da un error en el ExecuteNomQuery y dice: "No se han especificado valores para algunos de los parámetros requeridos.", os pongo el código que he realizado haber si me pueden ayudar.

Código (vbnet) [Seleccionar] Expandir


Private Sub btn_Borrar_Modelo_Borrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Borrar_Modelo_Borrar.Click
        Dim id_marc As Integer

        ' consulta para asignar el Id_Marca
        Dim dtadapterMarca As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("SELECT Id_Marca FROM Marcas WHERE Marcas.Marca='" & cbb_Marca_Marcas_Borrar.Text & "'", conexion_access)
        Dim dtsMarca As New DataSet
        dtadapterMarca.Fill(dtsMarca, "Marcas")
        For Each Fila As DataRow In dtsMarca.Tables("Marcas").Rows
            id_marc = Fila("Id_Marca")
        Next
        ' los MsgBox los coloco para ver que me guarda en cada variable
        MsgBox("id_marca: " & id_marc)
        MsgBox("Marca: " & cbb_Marca_Marcas_Borrar.Text)
        MsgBox("modelo: " & cbb_Modelo_Marcas_Borrar.Text)

        Dim dtadapterModelo As New OleDb.OleDbCommand("DELETE FROM Modelos WHERE Modelos.Descripción='" & cbb_Marca_Marcas_Borrar.Text & "' AND Id_Marca=" & id_marc & "", conexion_access)
        ' abro la conexion
        dtadapterModelo.Connection.Open()
        dtadapterModelo.ExecuteNonQuery()
        MessageBox.Show("El modelo se ha borrado correctamente", "Informacion", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Limpiar_TextBox(cbb_Marca_Marcas_Borrar.Text, cbb_Modelo_Marcas_Borrar.Text)

        'cierro la conexion
        dtadapterModelo.Connection.Close()
    End Sub


Espero que me puedan ayudar,

Saludos

[andaluz]

Alguien me puede ayudar a solucionar este error?????

[HdM]

Buenas.

Los 3 msgbox esos que utilizas como debug, muestran los valores correctos, ¿no?
¿Seguro que el campo Descripcion va con tilde (Descripción)?

Saludos.