Antal resultater fra Access database

Hej

Er der en der kan fortælle mig hvordan jeg finder ud af hvor mange resultater den finder.

Findes der en count funktion eller noget.


    With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
        "ODBC;DSN=MS Access-database;DBQ=C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb;DefaultDir=C:\Program Files\Microso" _
        ), Array( _
        "ft Office\Office10\Samples;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
        )), Destination:=Range("G13"))
        .CommandText = Array( _
        "SELECT Produkter.Produktnavn, Produkter.Produktnr, Produkter.`Pris pr enhed`" & Chr(13) & "" & Chr(10) & "FROM `C:\Program Files\Microsoft Office\Office10\Samples\Northwind`.Produkter Produkter" & Chr(13) & "" & Chr(10) & "ORDER BY Produkter.Produktnavn" _
        )
        .Name = "Forespørgsel fra MS Access-database_8"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With