VBA - Amount<>0

Hej,
Jeg er ikke god til VBA og har stjålet denne kode fra en anden database og tilpasset den så den virker på mit nuværende datasæt. Jeg vil gerne i selve koden lave en frasortering af alle de rækker hvor Amount=0. Den spytter nemlig 5200 rækker ind i target datasættet, men kun 1400 indeholder værdier forskellig fra 0.

Private Sub Command2_Click()
Dim db As Database
Dim rsSource As Recordset
Dim rsTarget As Recordset
Dim I As Integer
Dim AsOfDate As Date

Set db = CurrentDb
Set rsSource = db.OpenRecordset("Recieve_SAP_Costs")
Set rsTarget = db.OpenRecordset("T_import_SAP_Costs")


'For I = 2 To 27 afspejler antal regnr, hvis der kommer flere skal antallet sættes op

For I = 2 To 27
     
    Reg = rsSource.Fields(I).Name
   
    ' Move Transactions
     
    rsSource.MoveFirst
   
    While Not rsSource.EOF
   
            rsTarget.AddNew
                rsTarget!Date = rsSource.Fields(0)
                rsTarget!Regnr = Reg
                rsTarget!AccountID = rsSource.Fields(1)
                rsTarget!Amount = rsSource.Fields(I) * 1000
            rsTarget.Update
        rsSource.MoveNext
   
    Wend
   
Next I

End Sub