Fra Query til Excel i access 2000

Hejsa, jeg har brug for at et resultat fra en query bliver exporteret til excel.

Jeg har kigget lidt i tidligere post og har fundet frem til det her:

Dim oApp As Object
    Dim wbk As Object
    Dim produkter As String
    Dim I As Integer

    Set oApp = CreateObject("Excel.Application")
   
   
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True
   
    Dim rst As DAO.Recordset
   
    Set rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("produkter", dbOpenTable)
    Set wbk = oApp.Workbooks.Add
    wbk.Worksheets("Ark1").Cells(1, 1).Value = "ID"
   
    For I = 2 To rst.RecordCount + 1
    wbk.Worksheets("Ark1").Cells(I, 1).Value = Format(rst.Fields![id])
    rst.MoveNext
    Next
    wbk.Worksheets("Ark1").UsedRange.Columns.Autofit

Men af en eller anden grund bliver min recordCount = 1 hver gang, på trods af at der 3000+ poster i den tabel som hedder produkter.
Excel åbner fint og der står ID i første kolonne, som der burde, men pga. recordCount bliver = 1 så køre den jo ikke så meget, jeg håber nogle kan hjælpe mig? Og i stedet for at køre fra tabel til excel ville jeg gerne fra query til excel så man kunne angive hvilke type af produkter som skal exporteres.

f.eks. om det er alle poster som har værktøj som type, eller om det er hårdehvidevare