Fatal error during command execution (MySQL, VBNET)

I have a problem when inserting data from a VB.Net application to a Mysql database, the problem I have has been asked by many other people but I can not find exactly what my code is failing

Function Guardar_Datos() As Boolean
    Dim err As Boolean = False
    Dim con As New MySqlConnection
    Dim captura As String = "" 
    con.ConnectionString = server
    Try
        con.Open()
        Try



            For f As Integer = 0 To DataGridView1.RowCount - 1
                captura = "INSERT INTO estatusdeot.presupuestos ('Presupuesto', 'Obra', 'Cliente', 'Direccion', 'Atencion', [Ruta de Archivo], 'Cotizo', 'Factor', [Monto Ppto.], 'Fecha')" & _
                     "VALUES (@Presupuesto, @Obra, @Cliente, @Direccion, @Atencion, @RutadeArchivo, @Cotizo, @Factor, @MontoPpto, @Fecha);"
                Dim insertar As New MySqlCommand(captura, con)
                'insertar.Prepare()

                insertar.Parameters.AddWithValue("@Presupuesto", DataGridView1.Item(0, f).Value)
                insertar.Parameters.AddWithValue("@Obra", DataGridView1.Item(1, f).Value.ToString)
                insertar.Parameters.AddWithValue("@Cliente", DataGridView1.Item(2, f).Value.ToString)
                insertar.Parameters.AddWithValue("@Direnccion", DataGridView1.Item(3, f).Value.ToString)
                insertar.Parameters.AddWithValue("@Atencion", DataGridView1.Item(4, f).Value.ToString)
                insertar.Parameters.AddWithValue("@RutadeArchivo", DataGridView1.Item(5, f).Value.ToString)
                insertar.Parameters.AddWithValue("@Cotizo", DataGridView1.Item(6, f).Value.ToString)
                insertar.Parameters.AddWithValue("@Factor", DataGridView1.Item(7, f).Value)
                insertar.Parameters.AddWithValue("@MontoPpto", DataGridView1.Item(8, f).Value)
                insertar.Parameters.AddWithValue("@Fecha", DataGridView1.Item(9, f).Value.ToString)
                insertar.ExecuteNonQuery()
            Next
            err = False
        Catch ex As Exception
            MsgBox(ex.Message)
            err = True
        End Try
        con.Close()
        con.Dispose()
    Catch exc As Exception
        MsgBox("hubo un error al conectar con servidor " & vbCrLf & exc.Message, vbCritical)
    End Try
    Return err
End Function

The Budget field and the Factor Field are as Int (11) and the Amount field is as Decimal (15.2).

Thanks for your help.