Har lite problem med en sql sats, någon som kan hjälpa mig, försöker räkna hur många material det finns som har ett visst projektid

CreateRecordset("select count(1) from Material where projektId = " & text1.text &"", dbOpenAsQuery)


Anders

Vad är problemet?

Menar du någo sånthär?
<code>
Dim db As database
Dim rsTemp as Recordset
Set db = OpenDatabase(App.Path & "\Data.mdb")
Set rsTemp = db.OpenRecordset("SELECT Count(*) As Antal FROM Material WHERE ProjektId = " & text1.text)

If rsTemp.EOF Then
'Bör aldrig inträffa för denna fråga.
'En tom tabell retunerar null har jag för mig.
'Men: "Better safe then sorry"
Else
Msgbox "Det finns " & rsTemp("Antal") & "st material för " & text1.text
End If
</code>

löste det, (Material) skulle det vara bara :)
tack för hjälpen alla