Hvorfor virker min kode ikke i andre access doc

Jeg fik dette eksempel, og det virker i denne fil.

>start<
Private Sub Kombinationsboks8_Change()

Dim rs As DAO.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM [Grupper] WHERE nr = " & Me.Kombinationsboks8
Set rs = CurrentDb.OpenRecordset(strSQL)

Me.Fornavn = rs.Fields(1)
Me.Efternavn = rs.Fields(2)
Me.alder = rs.Fields(3)

rs.Close
Set rs = Nothing

End Sub

>slut<

www.tcwc.dk/eksperten.mdb
( ca 200 kb )


-----

Men når jeg prøver at kopi det over i et nyt access så virker det ikke. Også selvom tabeler og indhold er det samme.
Hvorfor virker det ikke i andre access doc. ( Alt er alprøvet og overstået virker i access i 2000 ).

//dl