Varför fungerar inte detta?

Jag har lagt upp ett antal tabeller i ACCESS.
Har finns bl a t_songtitlar, t_kategori.
I Access så gjorde jag t_kategori som uppslagstabell till t_songtitlar.
DVS nu är det sparat som ett id nr i t_songtitlar.

Nu vill jag försöka att uppdatera, och för att kunna hantera detta så försöker jag först så här:

   Set minDB = DBEngine.Workspaces(0).Databases(0)
    Set mittRs4 = minDB.OpenRecordset("Select Kat_Id  FROM t_Kategori WHERE  kategori = '" & Form1.Text1(2) & "'")
   If Not mittRs4.EOF Then
   Label3.Caption = mittRs4.Fields(0)
   End If

Textrutan Text1(2) innehåller kategori, inte id nummret.
Jag får inga fel, men inget resultat heller.
Hjälp... :(

Är det inte lite konstigt att skriva Form1.Text1(2) ???
Om textboxen heter Text1 borde det väl stå Text1.text för att texten i rutan skall returneras...

Jag såg inte detta inlägg, därför så har jag inte svarat.
Jag har flera textrutor som heter Text1(0),Text1(1) osv..

Jo, men där det står:

...WHERE  kategori = '" & Form1.Text1(2) & "'")

, så vill den jämföra kategori med en sträng. Jag tror inte att Form1.Text1(2) returnerar nån sträng.