как наити обшее кол-во записеи

[elsen]

надо подшитат обшее кол-во записеи по условию (Access)
ест такои код
Dim dbs As Database, qdf As QueryDef, rst As Recordset
Dim prm As Parameter, strSQL As String
Dim i As Integer

Set dbs = CurrentDb


strSQL = "SELECT * FROM Zakazi WHERE (((Left([Zakazi].[artn],2))= '" & artn1 & "'));"

Set qdf = dbs.CreateQueryDef("Parameterabfrage", strSQL)
Set rst = qdf.OpenRecordset
' в етом месте дает ошибку - 13
i = 0
While (Not (rst.EOF))
i = i + 1
rst.MoveNext
Wend
dbs.Close

rst.Close
Set rst = Nothing
dbs.QueryDefs.Delete ("Parameterabfrage")
моэт ест идеи

[elsen]

pardon v etom meste oshibka
Set qdf = dbs.CreateQueryDef("Parameterabfrage", strSQL)

[elsen]

ну спасибо как всегда сам нашел рещение
посемуто в етот раздел мало заходят однако .