Anvendelse af sort i datasheet view giver recordset fejl

Hej,

Fejl:
Jeg får en fejl \"Run-time error \'429\': ActiveX component can\'t create object\", hvis jeg forsøger at referere til min recordset.source efter jeg har anvendt Access\' Sort eller Filter funktioner.

Setup:
Tabel: t_test
id:  str_name:  str_type:
1      Peter        M
2      Søren        M
3      Bente        K
4      Hans        M

Jeg har en datasheet from (frmTest), der i Form_Load sætter formens recordset source (se nedenfor).
Yderligere har jeg en event (dobbeltklik), der skriver formens recordset source til skærmen (se nedenfor).

Fejlsituation:
Hvis jeg dobbeltklikker på str_name field i datasheet, så får jeg skrevet formens recordset source til skærmen.... som ønsket.
Hvis jeg herefter klikker på f.eks \'Sort Ascending\' toolbar knappen og derefter dobbeltklikker på str_name, så får jeg run-time fejlen.

Hvem har en løsning på problemet?


                - o -

Private Sub Form_Load()
    Dim rstobj As New ADODB.Recordset
    Dim RstSource   
   
    RstSource = \"Select * from t_test where str_type = \'M\'\"
   
    \'Open recordset
    With rstobj
        .ActiveConnection = CurrentProject.Connection
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Source = RstSource
        .Open
    End With

    \'Assign to Form recordset
    Set Forms(\"frmTest\").Recordset = rstobj

End Sub




Private Sub str_name_DblClick(Cancel As Integer)
    MsgBox Forms(\"frmTest\").Recordset.Source
End Sub