Forse non sente aperta la connessione al data base? Come l'hai dichiarata Public o Private

Prova, se vuoi, questo codice:

codice:
        Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Running_VB.mdb", ;Persist Security Info=False"
        Db.Execute "UPDATE Tbl_Running SET Tbl_Running.Scarpa = '" & TXT_Modifica.Text & "' WHERE ((Tbl_Running.Scarpa = '" & Txt_Scarpa.Text & "'))"