upgradering til XP

Hej !
Nu har jeg opgraderet min Database til accessXP.
Det meste virker men... noget at min VB-kode har det meget svært med XP, er der en refrences man skal sætte ligesom da vi skiftet fra 97 til 2000 eller ?

min kode er ::::

Private Sub Form_Open(Cancel As Integer)
On Error GoTo err_command6
    Dim rst As Recordset, strCriteria As String
    strCriteria = \"[INIT] Like \'*\" & InputBox(\"Indtast Initialer dvs 1. bogstav i for- og efternavn\") & \"*\'\"

    Set rst = Me.RecordsetClone
    rst.MoveFirst strCriteria
    If rst.NoMatch Then
        MsgBox \"No entry found\"
    Else
        \'Me.Bookmark = rst.Bookmark
        Me.Bookmark = rst.Bookmark
        Dim bkmrk As Variant
        bkmrk = Me.Bookmark
        DoCmd.Requery
        Me.Bookmark = bkmrk
       
    End If
err_command6:

End Sub

________