Private Sub aktualisieren()
        Try
            con.ConnectionString = "Provider=Microsoft.ACE.Oledb.12.0;Data" & _
              "Source=G:\F1.accdb"
            cmd.Connection = con
 
            cmd.CommandText = "update Rennen set Fahrer=?, Nationalität=?," & _
              "Team=?, Motorenpartner=?  WHERE (id = ?)"
            cmd.Parameters.Add("@Fahrer", OleDbType.VarWChar).Value = _
            ComboBox1.Text
            cmd.Parameters.Add("@Nationalität", OleDbType.VarWChar).Value = _
            Nationtxtbox.Text
            cmd.Parameters.Add("@Team", OleDbType.VarWChar).Value = _
            Teamtxtbox.Text
            cmd.Parameters.Add("@Motorenpartner", OleDbType.VarWChar).Value = _
            Mototxtbox.Text
 
            cmd.Parameters.Add("@id", OleDbType.Integer).Value = IDtxtbox.Text
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
        Catch
            MsgBox("Update fehlgeschlagen!!")
        End Try
 
    End Sub