Update Access via Excelsheet

[snb]

Op basis van jouw bestand.

Sub update()
  With ActiveSheet.QueryTables(1)
    c1 = Replace(Join(Filter(Split(.Connection, ";"), "DBQ="), ""), "DBQ=", "")
    c2 = Replace(Join(Filter(Split(.CommandText & "*"), "*"), ""), "*", "")
  End With
  sq = Sheets(1).Range("A1").CurrentRegion

  With GetObject(c1).currentdb.openrecordset(c2)
    .Index = "ID"
    For j = 2 To UBound(sq)
      .Seek "=", sq(j, 1)
      .Edit
      !Naam = sq(j, 2)
      !Adres = sq(j, 3)
      .update
    Next
    .Close
  End With
End Sub

 

[AABE]

Helaas. ik krijg nog steeds dezelfde foutmedling.....

 

[snb]

Het loopt hier als een zonnetje.
Voer de macro stapsgewijs uit en vertel in welke regel de foutmelding ontstaat.
Heb je bij de verwijzingen in de VBEditor Microsoft Scripting Runtime aangevinkt ?