Problem med .OpenRecordset

Min bog (Access 2000 VBA Handbook) siger at følgende kode skulle virke, men det gør det bare ikke. Hvad kan jeg have glemt?

Sub UpdateTotallager(sk As Double)
  Dim db As Database
  Dim rs As Recordset
  Dim q As String
 
  Set db = CurrentDb
  q = \"SELECT antal FROM Lagerstatus WHERE knr=\" + Str(sk)
  Set rs = db.OpenRecordset(q)
 
  Do Until rs.EOF
    Debug.Print rs!antal
    rs.MoveNext
  Loop
End Sub

Fejlen ligger i linien med OpenRecordset. Jeg har tilføjet DAO biblioteket, og dens .Execute funktion virker fint. Jeg har flyttet koden over i et modul da den ikke ville virke i en form, men det hjalp heller ikke. Hvad kan der være galt?