Recordset (gennemløb)

Godaften eksperter
Jeg har problemer med at få nedenstående kode til at virker, problemet er at den sådan set virker, men den skriver kun værdien i den første post i mit dataark. Ideen var jo at den skulle tælle hvor mange poster der var i fsInstalleretSoftware, og så returnere det i mit dataark i feltet brugte ud for den aktuelle software. Nogen der kan se hvad jeg gør forkert.

mvh Anders.

Private Sub Form_Load()

Dim Result As Variant

Dim SQL As String

Dim rst As New ADODB.Recordset

SQL = "Select * From fsInstalleretSoftware"

rst.Open SQL, CurrentProject.Connection

Result = DCount("[Software]", "fsInstalleretSoftware", "Software = '" & Forms!fmSubSoftware!Software & "'")

Do Until rst.EOF

rst.MoveNext

Loop

rst.Close

Set rst = Nothing

Me.Brugte = Result
       
End Sub