Dim conn As New OleDbConnection("Conección")
Dim consulta As String = "DELETE FROM producto WHERE descripcion = " & Cmbejercicio3.Text & " "
Dim cmd As New OleDbCommand(consulta, conn)
conn.Open()
Try
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
conn.Close()
Dim consulta As String = "DELETE FROM producto WHERE descripcion ='" & Cmbejercicio3.Text & "'"