Database fejl ved skrivning til felt

Hej

Når jeg udfører nedstående kode får jeg en fejl 3219: Operation is not allowed in this context.

ADOCmd.CommandText = "SELECT * FROM Sprog WHERE ID='" + AktID + "'"
ADORS.Open ADOCmd, , adOpenKeyset, adLockOptimistic
Dummy = ADORS.Fields(b(0)) 'check om ID findes i 'sprog'
If Not ErrorStatus Then
  For Cnt1 = 0 To 12
    Sprog(Cnt1) = ADORS.Fields(b(Cnt1))
  Next
  ADORS.Close
     
  ADOCmd.CommandText = "SELECT * FROM " & Tabel & " WHERE ReceptNr='" + cmbVareNr(1) + "'"
  ADORS.Open ADOCmd, , adOpenKeyset, adLockOptimistic
  For Cnt1 = 0 To 12
    ADORS.Fields(a(Cnt) & "_" & b(Cnt1)) = Sprog(Cnt1)
  Next
  ADORS.Update
  ADORS.Close
Else
  ADORS.Close
End If

Der skal hertil siges at feltlængderne er 255. Jeg tror det er det den brokker sig over. Hvis jeg sætter sprog() til en længde på 20 går det godt.

Det egentlige formål er at få indholdet af
"SELECT * FROM Sprog WHERE ID='" + AktID + "'"
kopieret over i
"SELECT * FROM " & Tabel & " WHERE ReceptNr='" + cmbVareNr(1) + "'"

Hvis der findes en nemmere måde, er jeg åben!