FOR-løkke afvikles ikke korrekt

Mit array indeholder navnene på 7 tabeller. I disse 7 tabeller skal feltet Varenr opdateres, men løkken stopper efter første tabel. Hvad går der galt?

  Dim MyArray(7) As String
  MyArray(0) = "Tabel0"
  MyArray(1) = "Tabel1"
  MyArray(2) = "Tabel2"
  MyArray(3) = "Tabel3"
  MyArray(4) = "Tabel4"
  MyArray(5) = "Tabel5"
  MyArray(6) = "Tabel6"
  MyArray(7) = "Tabel7"
   
  For intI = 0 To 7
    While Not rst.EOF
      SQLString = "UPDATE " & MyArray(intI) & " SET Varenr = '" & rst("VarenrNyt") & "' WHERE Varenr= '" & rst("Varenr") & "'"
      DoCmd.SetWarnings False
      DoCmd.RunSQL SQLString
      DoCmd.SetWarnings True
      rst.MoveNext
    Wend
  Next intI
  rst.Close