Runtime error 3800. "category" is not an index in this table

Hej. Jeg er nybegynder og sidder og leger lidt med Access og Northwind. Jeg er dog stødt ind i et problem, som jeg håber at jeg kan få lidt hjælp til. Min VBA kode ser ud som følger:

Sub SogeTing()

Dim c As String
Dim b As Integer
Dim a As String
Dim DB As Database
Dim rs1 As Recordset
Dim rs2 As Recordset

Set DB = CurrentDb
Set rs1 = DB.OpenRecordset("Products")
Set rs2 = DB.OpenRecordset("Products")

rs1.Index = "ProductName"
rs2.Index = "Category"

MsgBox "Dette program giver dig mulighed for at søge på produkter. Du kan vælge at søge enten på Category eller ProductName"

b = InputBox("Skriv 1 for søgning på ProductName. Skriv 2 for søgning på Category. Skriv 3 for at afbryde", "", "")

Select Case b

Case "1"
a = InputBox("Søg på produkter", "", "Skriv søgebogstav(er)")
rs1.Seek ">=", a
MsgBox rs1!ProductName


Case "2"

c = InputBox("Søg på produkter", "", "Skriv søgebogstav(er)")
rs2.Seek ">=", c
MsgBox rs2!Category

Case "3"

MsgBox "Farvel og tak"

End Select


rs1.Close
rs2.Close

End Sub

Mit lile pogram går i al sin enkelthed ud på at jeg vil kunne søge i Northwind databasen ud fra enten "Category" eller "ProductName". Når jeg compiler den får jeg fejlmeddelelsen: Runtime error 3800. "category" is not an index in this table. Jeg forstår ganske enkelt ikke hvorfor det går fint med "ProductName" men ikke med "Category"

Håber meget at nogen kan give mig en forklaring.

[Redigeret d. 27/10-05 22:36:04 af Klaus]