Kan ikke opdatere Recordset

Jeg ska importere et excel regane ark hvorfor jeg har en knap på en form som er linket til en forspørgsel. I formen kan jeg sagtens rette i data men Recordsettet kan jeg ikk bruge Update på. Hvad gør jeg galt?

Private Sub Kommandoknap1_Click()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\GBMP 2004 Operational Plan v1.92.xls")
Set xlSheet1 = xlBook.Worksheets("B Global Product Plan")
Set xlSheet2 = xlBook.Worksheets(10)
xlApp.Visible = True
Set Qyy = Me.Recordset
Qyy.MoveLast
Qyy.MoveFirst

T = 0
Do
'xlSheet1.Cells(13 + T, 2).Value = "HEJ"
Pref = Replace(xlSheet1.Cells(4 + T, 2).Value, ",", ".")
Pref = Split(Pref, ".")
SechPref = Pref(0)
If UBound(Pref) > 0 Then SechPref = SechPref & "." & Format(CInt(Pref(1)), "00")
If UBound(Pref) > 1 Then SechPref = SechPref & "." & Format(CInt(Pref(2)), "00")
Qyy.FindFirst "Pjnr = '" & SechPref & "'"
If Qyy.NoMatch Then
    Qyy.FindFirst "Pjnr = '" & SechPref & ".00'"
End If
If Not (Qyy.NoMatch) Then
    If IsDate(xlSheet1.Range("AE" & (4 + T)).Value) Then Qyy(Gate4UK) = CDate(xlSheet1.Range("AE" & (4 + T)).Value)
    Qyy.Update


End If
T = T + 1
Loop While xlSheet1.Cells(4 + T, 2).Value <> ""


End Sub